Language Basics VisualBasic Script

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