Imports System
Imports System.Globalization
Class NumberFormatInfoSample
Public Shared Sub Main()
Dim nfi As NumberFormatInfo = New CultureInfo("en-US", False).NumberFormat
Dim myInt As Int64 = - 1234
Console.WriteLine(myInt.ToString("C", nfi))
nfi.CurrencyDecimalDigits = 4
Console.WriteLine(myInt.ToString("C", nfi))
End Sub
End Class