Imports System.Globalization
Module Example
Public Sub Main()
Dim value As Single = 123456.123456
Dim specifier As String
Dim culture As CultureInfo
specifier = "G"
culture = CultureInfo.CreateSpecificCulture("eu-ES")
Console.WriteLine(value.ToString(specifier, culture))
Console.WriteLine(value.ToString(specifier, CultureInfo.InvariantCulture))
End Sub
End Module