Private Const TAXRATE As Currency = 0.0875Function TotalAmount(curSaleAmount As Currency) TotalAmount = curSaleAmount * TAXRATEEnd Function