Display negative SByte value using the standard numeric format specifiers and a number of specific CultureInfo objects

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