Development VB.Net

Class Sample
   Public Shared Sub Main()
        Dim numbers() As Single = { -1.9999e16, -123.4321, 2010.123, 1.2010e16 }
        Dim cultureNames() As String = { "en-US", "fr-FR", "ja-JP", "ru-RU" }
        
        For Each number As Single 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
           Console.WriteLine()
        Next   
    End Sub 
End Class