题目大概是  一个文本框，要求输入正确的口令，有三次机会，若口令正确，则转入form2   若错误，则显示还有几次机会
大概的窗口是

请输入口令  ————

    你有三次机会，请好好把握哦！

是一个窗口单击事件，若输入错误则弹出一个消息框，显示还有几次机会，下面的是我的源代码，不知那里错了，得不到正确结果
忘指导
Private Sub Form_Click()
Static i As Integer
For i = 3 To 0 Step -1
If (Text1.Text) = "123456" Then
a = MsgBox（"口令正确，转入form2 ",,"提示")
Unload Me
Form2.Show
Else
a = MsgBox（"你还有" & i & "次机会",,"提示"）
End If
Exit For

Next i
End Sub
谢谢

[ 本帖最后由 沧声笑 于 2010-10-19 18:28 编辑 ]