VBA Error Handling Problem with WinHttp / Http.Send

[aweiss2k]

Hello,

I am using WinHTTP to get the Http.ResponseText from a list of websites, but my error handling doesn't seem to be trapping errors at all.

Code Sample:

Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
Http.Open "GET", Site, False
Http.setRequestHeader "Content-Type", "application/json"
Http.setRequestHeader "Accept", "application/json"
Http.setTimeouts 25000, 25000, 25000, 25000

On Error GoTo ErrorHandler:
Http.Send
If Http.Status <> 200 Then
...

--

If, for example, the Http.Send request times out it does not go to my ErrorHandler, but instead pops up a VBA 'runtime error - operation timed out' message and breaks the code execution. Generally, I get a Run Time Error for every type of error event related to 'Http.Send' rather than having it follow the error handling instructions.

Any advice about how to trap these errors would be appreciated.

Thanks,
Aaron