Module Example Public Sub Main() Dim value As String Dim number As Double value = "-1.111e6" If Double.TryParse(value, number) Console.WriteLine(number) Else Console.WriteLine("Unable to parse '{0}'.", value) End If End Sub End Module