Visual Basic.NET - No me funciona

Hola a todos:

Tengo este codigo:

Private Sub cmdAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAccept.Click
Dim nintento As Integer
nintento = 3
While nintento <> 0
If Me.txtPassword.Text = "nf43hwl3" Then
Dim oPrincipal As New frmPrincipal
Me.Close()
oPrincipal.Show()
Else
MsgBox("Clave no correcta", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "Dispone de " & nintento & " más")
Me.txtPassword.Text = ""
Me.txtPassword.Focus()
End If
nintento = -nintento
End While
Me.Close()
End Sub

En el que doy 3 intentos para poder entrar si no introduce bien la clave lo que pasa es que se me queda en el msgbox a la primera, y no sale de ahi

1. Verifica el valor que esta tomando nintento antes del end while.
2. Me parece que puedes tener o

El problema lo tienes en esta linea :

nintento = -nintento

Que lo que le estas diciendo es que nintento coja valor -3 en lugar de restar uno que es lo que tu quieres. Deberias poner

nintento -= 1

para que te reste uno a nintento.