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