VBA/Excel/Access/Word/Data Type/Currency Format

Format money as $##,##0.00

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

formatted proper currency format ("$###.##")

 
Sub loanPayment()
   Dim dblRate As Double
   Dim intTerm As Integer
   Dim dblPrincipal As Double
   Dim dblPayment As Double
   Dim strFormat As String
   dblRate = 0.075
   intTerm = 5
   dblPrincipal = 75000
   strFormat = "$###.##"
   dblPayment = Pmt(dblRate / 12, intTerm * 12, -dblPrincipal)
   msgBox "The monthly payment is: " & Format(dblPayment, strFormat)
End Sub

Format value as currency

 
Sub CCurDemo()
    Dim hours
    Dim hourlyPay
    Dim payPerWeek
    hours = 40
    hourlyPay = 20
    payPerWeek = CCur(hours * hourlyPay)
    MsgBox "Pay is:   " & Format(payPerWeek, "$##,##0.00"), , "Total Pay"
End Sub