NumberFormatInfo.CurrencyGroupSizes
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 = 123456789012345 Console.WriteLine(myInt.ToString("C", nfi)) Dim mySizes1 As Integer() = {2, 3, 4} Dim mySizes2 As Integer() = {2, 3, 0} nfi.CurrencyGroupSizes = mySizes1 Console.WriteLine(myInt.ToString("C", nfi)) nfi.CurrencyGroupSizes = mySizes2 Console.WriteLine(myInt.ToString("C", nfi)) End Sub End Class