Option Explicit
'Testen ob String vorhanden ist
Private Sub Test_Click()
 
    URL_Load "http://"
 
    SaveQuelltext App.Path & "\URL_Quelltext.txt"
 
    HIER SOLL DIE SCHLEIFE KOMMEN
 
End Sub
 
' Ereignis wird ausgelöst, sobald die Webseite
' vollständig geladen wurde
Private Sub wb_DocumentComplete(ByVal pDisp _
  As Object, URL As Variant)
  On Error Resume Next
  wb.Tag = ""
End Sub
 
' URL (Webseite) laden
Private Sub URL_Load(ByVal sURL As String)
  Dim sQuelltext As String
 
  With wb
    .Tag = "Load"
    .Navigate sURL
 
    ' Warten bis Seite vollständig geladen ist
    While .Tag <> ""
      DoEvents
    Wend
  End With
End Sub
 
' Seitenquelltext in Datei speichern
Private Sub SaveQuelltext(ByVal sFilename As String)
  Dim F As Integer
 
  With wb.Document.documentElement
    F = FreeFile
    Open sFilename For Output As #F
    Print #F, .outerHTML;
    Close #F
  End With
End Sub