FormatNumber Function

Returns an expression formatted as a number

Dim MyValue, MyReturn
MyValue = 3459459.3453454
MyReturn = FormatNumber(MyValue, 10, vbUseDefault, vbUseDefault, vbUseDefault)
MsgBox MyReturn

MyReturn = FormatNumber(1000.578) ' Returns 1,000.58
MyReturn = FormatNumber(1000.578, 1) ' Returns 1,000.6
MyReturn = FormatNumber(1000.578, 3) ' Returns 1,000.578
MyReturn = FormatNumber(.578,,True) ' Returns 0.58
MyReturn = FormatNumber(.578,,False) ' Returns $.58
MyReturn = FormatNumber(-1000.578,,,True) ' Returns (1,000.58)
MyReturn = FormatNumber(-1000.578,,,False) ' Returns -1,000.58
MyReturn = FormatNumber(1000000.578,,,,True) ' Returns 1,000,000.58
MyReturn = FormatNumber(1000000.578,,,,False) ' Returns 1000000.58