Double ToString("P1", CultureInfo.InvariantCulture)
Imports System.Globalization Module Example Sub Main() Dim number As Double = .2468013 Console.WriteLine(number.ToString("P1", CultureInfo.InvariantCulture)) End Sub End Module