1000 Seperator

[GIAKEN]

The way Jacob posted is 5x faster than my own hand written one

So I adapted to it!

Code:

Public Function FormatNumber(ByVal Number As Currency) As String

    If InStr(1, Number, ".", vbTextCompare) Then
        FormatNumber = Format$(Number, "###,###,###,###,###.####")
    Else
        FormatNumber = Format$(Number, "###,###,###,###,###")
    End If
    
End Function