Format money as $##,##0.00
Sub formatMoney() MsgBox "Pay is: " & Format(12345.67, "$##,##0.00"), , "Total Pay" End Sub