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 & "."
MsgBox strMsg
End Sub