>>261
ネットのやりとりはいろんな方法がある
たぶん、こんな感じで行けると思う

Set oHttp = CreateObject("MSXML2.XMLHTTP")
oHttp.Open "GET", "http://www.aaa.bbb/hoge.cgi", False
oHttp.SetRequestHeader "Accept-Language", "ja"
oHttp.SetRequestHeader "Accept-Encoding", "gzip
oHttp.SetRequestHeader "User-Agent", "hoge(1.1.1)"
oHttp.Send ' リクエスト送信
istatus = oHttp.Status ' 結果確認
If istatus = 200 Then s = oHttp.responseText ' 本文(HTMLソース)取得