Option Explicit Sub CalcCost() ' revised CalcCost procedure
' declaration of variables Dim slsPrice As Currency Dim slsTax As Single Dim cost As Currency Dim strMsg As String
slsPrice = 35
slsTax = 0.085
cost = Format(slsPrice + (slsPrice * slsTax), "0.00")
strMsg = "The calculator total is " & "$" & cost & "."