<code>Option Explicit
 
Dim a As Long
Dim Darf As Long
 
Private Sub Command1_Click()
  a = a + 1
  Label1.Caption = CStr(a)
  If a > Darf Then End
End Sub
 
Private Sub Command2_Click()
  Darf = CLng(Text1.Text)
End Sub</code>