Private Sub Command1_Click()
   WebBrowser1.Tag = "Loading"
   WebBrowser1.Navigate "URL"
   While WebBrowser1.Tag <> ""
      DoEvents
   Wend
   ' Hier ist dann der Source definitiv vorhanden, vorausgesetzt die URL stimmt
   sHTML = WebBrowser1.Document.documentElement.outerHTML
End Sub
 
Private Sub WebBrowser1_DocumentComplete(...)
   If (pDisp Is WebBrowser1.Object) Then
      WebBrowser1.Tag = ""
   End If
End Sub