Imports System.Globalization
Imports System.Text
Public Module Example
Public Sub Main()
Dim sb As New StringBuilder()
Dim cultureNames() As String = {"en", "en-AU", "en-BZ", "en-CA", "en-029", _
"en-TT", "en-GB", "en-US", "en-ZW" }
For Each cultureName As String In cultureNames
Dim ci As New CultureInfo(cultureName)
Dim nfi As NumberFormatInfo = ci.NumberFormat
Console.WriteLine(ci.DisplayName)
Console.WriteLine(nfi.CurrencySymbol)
Next
End Sub
End Module