Help ! Code runs 10 times automatically !

I get "You Have Reached 10 tries" immediately after clicking the command button. How can I change the code so that I can click on the button at least 10 times?


Private Sub Command1_Click()
Counter = 0
Do While Counter < 10
Label1.Caption = Rnd
Label2.Caption = Rnd

If Label1.Caption = Label2.Caption Then
MsgBox "Numbers Identical !"
End If

Counter = Counter + 1

Loop

MsgBox "You Have Reached 10 tries"



End Sub

Try this:

Code:

---

Private Sub Command1_Click()
Static Counter As Integer

    If Counter = 10 Then
        MsgBox "You Have Reached 10 tries."
        Exit Sub
    End If

    Label1.Caption = Rnd
    Label2.Caption = Rnd

    If Label1.Caption = Label2.Caption Then MsgBox "Numbers Identical !"
    Counter = Counter + 1
End Sub

---

take out the do loop