Can anyone help with my variable please!?

Hi, here is my code.


Option Explicit
Dim wrongcounter As Integer

----

Private Sub answerlist_Click()
If answerlist.Text = "Radio" Then
wrongcounter = wrongcounter + 1
Do Until wrongcounter = 3
Loop
MsgBox "Whoops!"
imgunhappy.Visible = True
End If

----

But everytime I click on Radio after i click it 3 times no messagebox comes up!?any ideas, thx

martin

You're going to hit an endless loop the first time in.

Private Sub answerlist_Click()
If answerlist.Text = "Radio" Then wrongcounter = wrongcounter + 1
if wrongcounter = 3 then
wrongcounter = 0
MsgBox "Whoops!"
imgunhappy.Visible = True
End If

Thanks, that worked great :)