Format Double value with P
Imports System.Globalization Module Example Sub Main() Dim floating As Double = 10761.937554 Dim ci As New CultureInfo("en-us") Console.WriteLine("P: {0}", (floating/10000).ToString("P02", ci)) ' Displays "P: 107.62 %" End Sub End Module