Module Example
Public Sub Main()
Dim value As String
Dim number As Single
' Parse a floating-point value with a thousands separator.
value = "1,234.56"
If Single.TryParse(value, number) Then
Console.WriteLine(number)
Else
Console.WriteLine("Unable to parse '{0}'.", value)
End If
End Sub
End Module