Imports System
Imports System.Globalization
Class Sample
Public Shared Sub Main()
Dim result As Boolean
Dim singleVal As [Single]
' Single
result = [Single].TryParse("6.6", NumberStyles.Float Or NumberStyles.AllowThousands, Nothing, singleVal)
Console.WriteLine(singleVal.ToString())
End Sub
End Class