Very simple but im having a brain fart please help

[Charlie Stallings]

Ok i am making the end user have to enter a password and limit them to the ammount of times they have to enter a password. I have it working where if they enter the wrong password it will not let them access the application. for example

Private Sub Command1_Click()
Dim i As Integer
i = i + 1
If Text1.Text = "Password" Then
MsgBox "Yay :)", vbCritical
Else
If i = 3 Then
End
Else
MsgBox "Boo! :(", vbCritical
Label1.Caption = i
End If
End If
End Sub

what do i have wrong?