Private Sub CalcSalesTax(ByVal Price As Double, ByVal SalesTax As Double)
  ' Cel: Ten podprogram oblicza podatek należny
  '      od sprzedaży pewnego przedmiotu.
  '
  ' Argumenty:
  '  Price    Cena sprzedaży przedmiotu
  '  SalesTax Kwota należnego podatku
  '
  ' Uwaga: W obliczeniach wykorzystywana jest stała symboliczna
  '     SalesTaxRate, w której zapisana jest aktualna
  '     stawka podatku.

  SalesTax = Price * SalesTaxRate

End Sub
Proszę zwrócić 