Functions

Public Function TotalTax(ByVal Cost As Single) Dim StateTax, CityTax As Single StateTax = Cost * 0.05 CityTax = Cost * 0.015 Return StateTax + CityTax End Function