IncDecVar

'Put this in a Module or in the Form's Code

Public Function Incr(x, y)
x = x + y
End Function

Public Function Decr(x, y)
x = x - y
End Function

' Then Try this...


MyVar=10
Incr MyVar, 7
Debug.Print MyVar
MyVar = 10
Decr MyVar, 7
Debug.Print MyVar