Imprimir Página - Número en texto muestra formulario

Tengo un digitador el cual si recibe una cifra determinada muestra un formulario diferente, de lo contrario lanza un mensaje de error y permanece igual, no cambia de formulario.

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

(http://img163.imageshack.us/img163/3331/digs.jpg)

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

Código

Private Sub Command2_click()
  If text1.text="1111" then
    form2.show
  elseif text1.text="3312" then
    form3.show
  else
     msgbox "Error de clave"
  end if
End sub

¡Saludos!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: do-while1 en 7 Abril 2013, 17:21 pm