Sub CalcCost() slsPrice = 35 slsTax = 0.085 cost = slsPrice + (slsPrice * slsTax) strMsg = "The calculator total is " & "$" & cost & "." MsgBox strMsg End Sub