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