Forcing Declaration of Variables: Option Explicit
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