VBA/Excel/Access/Word/Data Type/Currency Format
Format money as $##,##0.00
<source lang="vb">
Sub formatMoney()
MsgBox "Pay is: " & Format(12345.67, "$##,##0.00"), , "Total Pay"
End Sub
</source>
formatted proper currency format ("$###.##")
<source lang="vb">
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
</source>
Format value as currency
<source lang="vb">
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
</source>