Sub ToScientificNotation(d As Double) As String
Dim n As Int = Logarithm(d, 10)
Dim m As Double = d / Power(10, n)
Dim sb As StringBuilder
sb.Initialize
sb.Append(NumberFormat2(m, 1, 2, 2, False)).Append("e")
If n >= 0 Then sb.Append("+")
sb.Append(n)
Return sb.ToString
End Sub