Tag, ich mach das so:
Dim url As String
Dim objHttp As Variant
Set objHttp = CreateObject("Microsoft.XMLHTTP")
url = |http://atnotes.de|
objHttp.open "GET", url, False, "", ""
objHttp.setRequestHeader "Content-type", "application/html"
Call objHttp.send()
response = objHttp.responseText