Class Sample
Public Shared Sub Main()
Dim numbers() As Decimal = { 9999.16d, -9999.9999d,9999.23d, 9999.684d }
Dim cultureNames() As String = { "en-US", "fr-FR", "ja-JP", "ru-RU" }
For Each number As Decimal In numbers
Console.WriteLine("{0}:", Convert.ToString(number,System.Globalization.CultureInfo.InvariantCulture))
For Each cultureName As String In cultureNames
Dim culture As New System.Globalization.CultureInfo(cultureName)
Console.WriteLine("{0}: {1,20}",culture.Name, Convert.ToString(number, culture))
Next
Next
End Sub
End Class