Data Type VisualBasic Script

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