Hilfe bei Visual Basic

[The Bang 2]

Also ich hab nochmal von vorne angefangen, es sieht jetz so aus:


Private Sub Command1_Click()
If Text1 = "Test" And text2 = "test" Then
MsgBox ("Zugang gewährt")
Form2
Exit Sub
Else: MsgBox ("Username / Passwort falsch oder nicht bekannt")
End If
End Sub


Ich führ ihn aus, dann bekomm ich die Fehlermeldung und dann siehts so aus:

Private Sub Command1_Click()
If Text1 = "Test" And text2 = "test" Then
MsgBox ("Zugang gewährt")
Form2
Exit Sub
Else: MsgBox ("Username / Passwort falsch oder nicht bekannt")
End If
End Sub