Private Sub URL_Load(ByVal sURL As String)
  Dim sQuelltext As String
 
  With WebBrowser1
    .Tag = "Load"
    .Navigate sURL
 
    web_label.Caption = ""
    ' Warten bis Seite vollständig geladen ist
    While web_label.Caption = ""
      DoEvents
    Wend
    web_label = ""
    'MsgBox "seite geladen"
  End With
  SaveQuelltext App.path & "\search.tmp" 'functionsaufruf

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  ' Prüfen, ob Seite vollständig geladen ist
  If (pDisp Is WebBrowser1.Object) Then
    web_label.Caption = "tigger"
  End If
End Sub