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