Private Sub Command1_Click()
   Dim sURL As String
   Dim sHTML As String
 
   sURL = "http://www.meineseite.de/sonstwas.html"
   WebBrowser1.Tag = sURL
   WebBrowser1.Navigate sURL
 
   While WebBrowser1.Tag <> ""
      DoEvents
   Wend
 
   sHTML = WebBrowser1.Document.documentElement.outerHTML   
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
   If (pDisp Is WebBrowser1.Object) Then
      If CStr(URL) = WebBrowser1.Tag Then
         ' Fertig geladen, dann Tag auf leer setzen
         WebBrowser1.Tag = ""
      End If
   End If
End Sub