Dim curPage As String
 
Private Sub Form_Load()
   Me.Show
   WebBrowser1.Navigate "intro3.html" 'Startseite
   Text1.SetFocus
 
End Sub
 
Private Sub Text1_Change()
 
   If curPage = "ok" Then
      WebBrowser1.Navigate "intro3.html" 'Startseite
      curPage = ""
      Text1.Text = ""
      Exit Sub
 
   ElseIf curPage <> "" Then
      curPage = "ok"
      Exit Sub
 
   End If
 
   Select Case Text1.Text
      Case "123":
         WebBrowser1.Navigate "intro5.html"
         curPage = Text1.Text
         Text1.Text = ""
 
      Case "234":
         WebBrowser1.Navigate "intro3.html"
         curPage = Text1.Text
         Text1.Text = ""
 
      Case Else
         If (Text1.Text Like "???") Then
         WebBrowser1.Navigate "intro3.html"
         curPage = ""
         Text1.Text = ""
         End If
 
   End Select
 
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
   Text1_Change
 
End Sub
 
Private Sub Text1_LostFocus()
   Text1.SetFocus
 
End Sub