Как использовать функцию обратного вызова VBA, когда XMLHTTP onTimeOut?

Я пытаюсь получить данные xml с веб-сервера для Excel, затем я написал функцию sendRequestдля вызова в Excel

=sendRequest("http://abb.com/index.php?id=111")

Когда веб-сервер -испытывает проблемы, не может подключиться или не может найти, Excel не отвечает, это было ужасно! Чтобы избежать этого, я думаю, мы должны установить timeOut. Это моя функция:

Function sendRequest(Url)
    'Call service
    Set XMLHTTP = CreateObject("Msxml2.ServerXMLHTTP.6.0")

    'Timeout values are in milli-seconds
    lResolve = 10 * 1000
    lConnect = 10 * 1000
    lSend = 10 * 1000
    lReceive = 15 * 1000 'waiting time to receive data from server
    XMLHTTP.setTimeOuts lResolve, lConnect, lSend, lReceive

    XMLHTTP.OnTimeOut = OnTimeOutMessage 'callback function

    XMLHTTP.Open "GET", Url, False

    On Error Resume Next
    XMLHTTP.Send
    On Error GoTo 0

    sendRequest = (XMLHTTP.responseText)
End Function

Private Function OnTimeOutMessage()
    'Application.Caller.Value = "Server error: request time-out"
    MsgBox ("Server error: request time-out")
End Function

Обычно, когда происходит тайм-аут XMLHTTP, событие OnTimeOutMessageбудет выполнено (ссылка#1 ,#2). Но как и в мой тест , OnTimeOutMessageвыполняется в самом началеsendRequest()

Как использовать функцию обратного вызова, когда время запроса Msxml2.ServerXMLHTTP.6.0 истекло -?

Спасибо за помощь!