Здесь подпрограмма используется для увеличения

Пример 2

Здесь подпрограмма используется для увеличения значения переменной Sales на величину, переданную в аргументе NumSales: Sub IncreaseSales(NumSales)
Sales = Sales + NumSales
End Sub
Чтобы вызвать подпрограмму из другой процедуры, укажите ее имя и значения всех необходимых аргументов, разделяя их запятыми. Оператор Call не обязателен, но если Вы применяете его, заключите аргументы подпрограммы в скобки: IncreaseSales 100 -или- Call IncreaseSales(IOO)