Dim req As Object Set req = CreateObject("MSXML2.XMLHTTP") Dim parser As Object Set parser = CreateObject("MSXML2.DomDocument")