VBA/Excel/Access/Word/Data Type Functions/CCur
CCur() converts value to Currency
<source lang="vb">
Sub currencyDemo()
Debug.Print CCur(10.3245567)
End Sub
</source>
Use CCur to convert value to currecy
<source lang="vb">
Sub CalcPay()
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>