'Listing 18.5  18LIST05.TXT - podprogram Calc_Totals

Sub Calc_Totals()
  Dim SubTotal As Currency
  Dim Tax As Currency
  Dim Totals As Currency
  SubTotal = 500#
  Tax = 37.5

  Totals = SubTotal + Tax
  Form1.Print Total
End Sub
