23-10-2009, 05:55 AM
Jacob's method is better, but eh...
Code:
Public Function FormatNumber(ByVal Number As Currency) As String
Dim LoopI As Long
Dim TempStr() As String
TempStr = Split(CStr(Number), ".", , vbTextCompare)
FormatNumber = TempStr(0)
If Len(FormatNumber) > 3 Then
TempStr(0) = Left$(FormatNumber, Len(FormatNumber) - ((Len(FormatNumber) \ 3) * 3))
For LoopI = Len(FormatNumber) \ 3 To 1 Step -1
TempStr(0) = TempStr(0) & "," & Mid$(FormatNumber, Len(FormatNumber) - ((LoopI * 3) - 1), 3)
Next
FormatNumber = TempStr(0)
If Left$(FormatNumber, 1) = "," Then FormatNumber = Right$(FormatNumber, Len(FormatNumber) - 1)
End If
If UBound(TempStr) > 0 Then FormatNumber = FormatNumber & "." & TempStr(1)
End Function