Dim MyString As String="9.979999999999999E-23"
Dim strVar() As String=Regex.Split("E",MyString)
Msgbox("My result is = " & NumberFormat(strVar(0),1,2) & "E" & strVar(1),"") 'displays: 9.98E-23
Dim MyString As String="9.979999999999999E-23"
Dim strVar() As String=Regex.Split("E",MyString)
Msgbox("My result is = " & NumberFormat(strVar(0),1,2) & "E" & strVar(1),"") 'displays: 9.98E-23