Const url = "http://www.google.de"
Dim Sourcecode As String
Dim IE As Object
 
' Zugriff aufs Web
Set IE = CreateObject("InternetExplorer.Application")
 
    IE.Visible = False
    IE.Navigate url
 
    Do While IE.Busy = True
    Loop
 
Sourcecode = IE.Document.Body.innerHTML
 
IE.Quit