Private Sub suchfeld_Click()
WebBrowser1.Document.Forms(0).elements(2).Value = Text5(0).Text 
WebBrowser1.Document.Forms(0).submit 'betätigt suchen Button
MsgBox ("suchen Button bestätigen ")
'die URL öffnen 
Dim sHTMLText As String
  Dim sURL As Variant
  Dim I As Integer
 
  ' Quelltext der Webseite
  With WebBrowser1.Document
    sHTMLText = .documentElement.outerHTML
  End With
 
  ' die URLs ermitteln
  sURL = HTML_GetAllURLs(sHTMLText)
  Link = "localhost"
  Link = Link + sURL(0)
  URL_Load1 (Link)
  ' URLs vorhanden?
  If IsArray(sURL) Then
    ' ListBox mit den URLs füllen
    Combo1.Clear
    For I = 0 To UBound(sURL)
      Combo1.AddItem sURL(I)
 
    Next I
  End If
End Sub