Imports System.Globalization
Module Example
Public Sub Main()
Dim cultures() As CultureInfo = {CultureInfo.CreateSpecificCulture("en-US"), _
CultureInfo.CreateSpecificCulture("fr-FR"), _
CultureInfo.CreateSpecificCulture("es-ES") }
Dim negativeNumber As SByte = -45
Dim specifiers() As String = {"E2", "F", "N", "P", "X2"}
For Each specifier As String In specifiers
For Each culture As CultureInfo In Cultures
Console.WriteLine("{0,2} format using {1} culture: {2, 16} {3, 16}", _
specifier, culture.Name, _
negativeNumber.ToString(specifier, culture))
Next
Next
End Sub
End Module