Mega Code Archive

 

Categories / VisualBasic Script / Data Type Functions

 

Use CCur to convert value to currecy

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