VBEでツール→参照設定でMicrosoft XMLを追加しておく。
Dim req As MSXML2.XMLHTTP50
Set req = New XMLHTTP50
'GETの場合
'第3引数はリクエストとマクロの同期をとるか
'Trueは同期しない
'Falseは同期する
Call req.Open("GET", "http://", False)
'POSTの場合
Call req.Open("POST", "http://", False)
Call req.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
'リクエスト送信
'引数はパラメータ(名前=値&名前=値...の形式)
Call req.send("a=b&c=d")
'レスポンスの内容がXMLのときにXMLを取得
req.responseXML.XML
'レスポンスの内容をテキストで取得
req.responseText
