Dim myDouble As Double = 123456.7890
Dim myDouble2 As Double = 123456.7890		
Dim myString As String =  myDouble.ToString( "N" )
Dim myString2 As String = FormatNumber( mydouble2, 2 ) 'VB6 - 
' Kompatibilätsklasse
 
'Folgende Ausgabe erscheint
myDouble  = 123,456.79
myDouble2 = 123,456.79

Dim i as Integer = -1
Dim myDouble As Double = 123456.7890
Dim myDouble2 As Double = 123456.7890		
Dim myString As String =  myDouble.ToString( "N" )
Dim myString2 As String = FormatNumber( mydouble2, 2 ) ''VB6 - _
  Kompatibilätsklasse
 
'Findet folgende Ausgabe statt
myDouble  = -123456,79
myDouble2 = -123,456.79