msgbox ("Your pay is: " & format(hoursworked *payrate, "$$$.00")