Imports System
Imports System.Globalization
Class Sample
Public Shared Sub Main()
Dim byteValue As Byte = 250
Dim providers() As CultureInfo = {New CultureInfo("en-us"), _
New CultureInfo("fr-fr"), _
New CultureInfo("es-es"), _
New CultureInfo("de-de")}
For Each provider As CultureInfo In providers
Console.WriteLine("{0} ({1})", _
byteValue.ToString("N2", provider), provider.Name)
Next
End Sub
End Class