Private Sub Webbrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
  Webbrowser1.DocumentCompleted
 
If Webbrowser1.Url.ToString.StartsWith("http://www.seite.de/suchen") Then
            name.Text = Webbrowser1.Document.GetElementById("name").InnerText & _
              " (Name)"
            alter.Text = Webbrowser1.Document.GetElementById("alter").InnerText _
            & " (Alter)"
            tel.Text = Webbrowser1.Document.GetElementById("telefon").InnerText _
            & " (Telefon)"
            Webbrowser1.Document.GetElementById("suchen").InvokeMember("click")
End If