Option Explicit Private mintAge As Integer Private Sub cmd() mintAge = mintAge + 1 Debug.Print mintAge End Sub