VB - Zahl mit Dezimalzahlstellen formatieren

''' <summary>
''' Diese Funktion fügt zu einer Zahl Dezimalzahlstellen hinzu.
''' Groß und kleinschreibung sollte auch beachtet werden
''' Aus 1000000 wird dann 1.000.000
''' </summary>
''' <param name="Number">Die Zahl die formatiert werden soll</param>
Public Function FormatNumber(ByVal Number As Long) As String
    Return Format(Number, "#,##0")
End Function