123,456.79
123,456.79
-123,456.79
-123,456.79

        Dim myDouble As Double = 123456.789
        Dim myDouble2 As Double = 123456.789
        Dim ms As String
        ms = myDouble.ToString("N")
        Debug.WriteLine(ms)
        ms = FormatNumber(myDouble2, 2) ''VB6 - Kompatibilätsklasse
        Debug.WriteLine(ms)
        myDouble = -123456.789
        myDouble2 = -123456.789
        ms = myDouble.ToString("N")
        Debug.WriteLine(ms)
        ms = FormatNumber(myDouble2, 2) ''VB6 - Kompatibilätsklasse
        Debug.WriteLine(ms)

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov