編程密碼輸入錯誤3次然後退出的問題（VB），哪錯了？急求！

Dim i%

Static n%

If Text2.Text <> "Gong" Then

n = n + 1

i = MsgBox("密碼錯誤", 5 + 48, "警告")

If i = 2 Or n = 3 Then End

Text2.Text = ""

Text2.SetFocus

End If

End Sub