Mathematica does not understand 1.2E-03, use 1.2*10^-03 instead
Function Scientific(s As String) As String
Dim pos%
pos = InStr(s, "E")
If pos Then
Scientific = Left(s, pos - 1) + "*10^" + Mid(s, pos + 1)
Else
Scientific = s
End If
End Function
Related examples in the same category