Private Function HttpGet(ByVal URL As String, ByVal Cookie As String) As String
Dim HTTP As Object
Set HTTP = CreateObject("Msxml2.ServerXMLHTTP.6.0")
HTTP.open "GET", URL, False
HTTP.SetRequestHeader "Cookie", Cookie
HTTP.send
HttpGet = HTTP.responseText
'Debug.Print HttpGet
End Function