URL = "your url here"
Set webconn= CreateObject("Microsoft.XMLHTTP")
webconn.Open "get", URL , False
webconn.Send
ResponseText = webconn.ResponseText
Set webconn= CreateObject("Microsoft.XMLHTTP")
webconn.Open "get", URL , False
webconn.Send
ResponseText = webconn.ResponseText
set webconn = nothing


