Option ExplicitPublic slsTax As SingleSub PublicCalcCost() '...Instructions of the procedure...End Sub