Set objhttp = CreateObject("MSXML2.ServerXMLHTTP")
URL = my url
objhttp.Open "GET", URL, False
objhttp.setRequestHeader "ApiKey", mykey
objhttp.send
Dim FF As Long
FF = FreeFile()
Open "C:\apiresponse.xml" For Output As FF
Write #FF, oXMLHTTP.responseXML.XML
Close #FF