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