FormatCurrency Function

Returns an expression formatted as a currency value using the currency symbol defined in the computer's control panel.
Dim MyValue, MyReturn
MyValue = 3459459.3453454
MyReturn = FormatCurrency(MyValue, 6, vbUseDefault, vbUseDefault, vbUseDefault)
MsgBox MyReturn

Result like

MyReturn = FormatCurrency(1000.578) ' Returns $1,000.58
MyReturn = FormatCurrency(1000.578, 1) ' Returns $1,000.6
MyReturn = FormatCurrency(1000.578, 3) ' Returns $1,000.578
MyReturn = FormatCurrency(.578,,True) ' Returns $0.58
MyReturn = FormatCurrency(.578,,False) ' Returns $.58
MyReturn = FormatCurrency(-1000.578,,,True) ' Returns ($1,000.58)
MyReturn = FormatCurrency(-1000.578,,,False) ' Returns -$1,000.58
MyReturn = FormatCurrency(1000000.57,,,,True) ' Returns $1,000,000.57
MyReturn = FormatCurrency(1000000.57,,,,False) ' Returns $1000000.57