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