Option Explicit Public slsTax As Single Sub PublicCalcCost() '...Instructions of the procedure... End Sub