Visual Basic - sentencias do while

hola a todos, le cuento que es lo que necesito hacer
TENGO UNA CAJA DE TEXTO DONDE DIGITO CONTRASEÑA QUIERO HACER QUE ESTA ME DEJE SOLO UN MAXIMO DE 3 INTENTOS COMO LO PUEDO HACER CON UN SICLO REPETITIVO?

No necesitas ningún bucle, sino mas bien un contador estático.

p.e. en el botón aceptar o al perder el foco el contros TextBox:

Static iCont As Integer
If Text1.Text <> "MiContraseña" Then
MsgBox "Contraseña incorrecta"
iCont = iCont + 1
Else
'.. procedimiento si es correcta
End If
If iCont = 3 Then
MsgBox "Se acabaron las oprtunidades"
End
End If