Private Function CalcSalesTax(ByVal Price As Double) As Double
  ' Cel: Ta funkcja oblicza podatek należny
  '      od sprzedaży pewnego przedmiotu.
  '
  ' Argumenty:
  '  Price   Cena sprzedaży przedmiotu
  '  SalesTax Kwota należnego podatku
  '
  '
  ' Zwracana wartość:
  '  double  kwota podatku należnego od sprzedaży

  ' Uwaga: W obliczeniach wykorzystywana jest stała symboliczna
  '     SalesTaxRate, w której zapisana jest aktualna
  '     stawka podatku.

  CalcSalesTax = Price * SalesTaxRate
End Function
