'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 Inputs: Incr MyVar, y Decr MyVar, y Returns: Incr Returns (MyVar + y) Decr Returns (MyVar - y) |