How to re-write MSXML2.XMLHTTP from MS Excel VBA

[eXile1979]

The following works well for MS Excel.

Sub testXMLHTTP_VBA()

Dim strResponse As String

Dim objHttp As Object

Set objHttp = CreateObject(“MSXML2.XMLHTTP”)

objHttp.Open “Get”, “http://www.yoursite.com/”, False

objHttp.send

strResponse = objHttp.responseText

Set objHttp = Nothing

[A1] = strResponse

End Sub