La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  66702 - CERRAR PROYECTO AL 3ER INTENTO. SENTENCIA: FOR
Autor:  Roberto
Pues bien, el problema que tengo es básicamente que no se usar bien la SENTENCIA FOR, y en esta ocasión debo emplear para que a la tercera vez que el usuario introduzca la contraseña aparezca un MsgBox "Contraseña errónea"

Este es el código que yo tengo (SOLO ME DEJA ERRAR UNA VEZ Y ME SACA DEL PROGRAMA)

Código: 

Dim intentos As Integer



Private Sub Validar_Click()

If Text1 = "getready123" Then

intentos = 0

MsgBox "Contraseña correcta"

Form2.Show

Hide



Else



For intentos = intentos + 1 To 3

MsgBox "Contraseña errónea"

Text1 = ""

Text1.SetFocus

Exit For

Next

End



End If



End Sub

Nota:
Se debe usar .SetFocus
Programa creado en Visual Basic 6.0
  Respuesta:  Carlos Perez
Intentalo asi:

Private Sub Validar_Click()

For intentos = 1 To 3

If Text1 = "getready123" Then

MsgBox("Contraseña correcta")

Form2.Show()

Hide()

Exit For


Else

MsgBox("Contraseña errónea")

Text1 = ""

Text1.SetFocus()


End If

Next

End Sub



creo que solo te deja errar una vez porque le dices en el for que se salga inmediatamente, si le quitas el exit for tal vez funcione correctamente, pero creo que como yo te lo puse es mas eficiente!

Pruebalos :D