そんなん普通はincとdecを作るだろ

Sub inc(ByRef i) '1増やす
  i = i + 1
End Sub

Sub dec(ByRef i) '1減らす
  i = i - 1
End Sub