El problema viene a la hora de poner el código:
Código:
Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "2"
End Sub
....
Private Sub Command2_Click()
If Text1.Text = "1111" Then
Form2.Show
Else: MsgBox "error de clave"
End If
If Text1.Text = "3312" Then
Form3.Show
Else: MsgBox "error de clave"
End If
End Sub
Cada que escribo "3312" me manda sin problema al formulario, mismo caso con "1111" pero el msgbox me saldrá forzosamente ya que a pesar de ser la cifra correcta no coincidé una con la otra.
Cuál sería el método para que el msgbox aparezca cuando no digite las cifras predeterminadas?
"3312" - muestra formulario 3
"1111" - muesrta formulario 2
"otro" - mensaje de error