Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

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