Microsoft.XMLHTTP同步调用如何设置超时时间？经常卡死啊

Microsoft.XMLHTTP同步调用怎么设置超时时间？经常卡死啊？
Dim XMLObject As XMLHTTP
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.open "GET", StrURL, False
XMLObject.send
DoEvents
StrHTMLPage = XMLObject.responseText

上面的代码，有时很正常，但有时就卡死了，几十分钟都没反应。要怎么设置超时或解决“卡死”？
------解决方案--------------------
异步调用。
XMLObject.open "GET", StrURL, 是否异步

如果是异步话，取返回值就不是下面的=了