Цикл do работает, но o.responseText каждый раз один и тот же. Как каждый раз обновлять содержание o.responseText?
Dim o
Dim x
Dim b
Do
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET",
"http://.../message.txt",
False
o.send
b = o.responseText
MsgBox(o.responseText)
x = o.responseText
Set o = Nothing ' пытался очистить объект, но не выходит
WScript.Sleep 120000
Loop
WScript.Quit