Sub ExpenseRep() Dim slsPrice As Currency Dim cost As Currency slsPrice = 55.99 cost = slsPrice + (slsPrice * slsTax) MsgBox slsTax MsgBox cost End Sub