Функция повышения или понижения числа как в C++

Бывает такое что в ходе написания кода нам нужно прибавить или отнять от переменной, к примеру единицу, или другое число. Как мы это делаем в VBA по умолчанию: 

i = i + 1

 Мне удобнее это делать к в C++ 

i++

Для этого напишем такую функцию в модуль книги чтоб можно было вызвать ее в любой момент, когда нам она будет нужна: 

Public Sub PP(ByRef i As Long, Optional ByVal n As Long = 1) ' Чтоб было как в с++
    i = i + n
End Sub

Пример ее вызова: 

Sub test()
    Dim c As Long
    c = 15
    PP c 'Прибавляем 1 к переменной с
    MsgBox c
End Sub

Если нам нужно отнять 1 или то пишем после нашей переменной, через запятую условие: 

Sub test()
    Dim c As Long
    c = 15
    PP c, -1 'Вычитаем 1 из переменной с
    MsgBox c
End Sub

 Условием может быть любое целое положительное или отрицательное число.