Message from webpage. Stack overflow at line: 1 - vba

Question

This is the code and I get the above msg when I run it and F8 on the line described below. Have to click the OK button 17 times before I can get out of it. Happens for a few web pages only, the rest (1000s) work fine. Tried On Error Resume Next before and after the line with no effect. Any idea how the code can ignore the msg and proceed?
Dim XMLHTTP As Object
Dim myURL As String
Dim html As Object
With CreateObject("MSXML2.serverXMLHTTP")
.Open "GET", myURL, False
.setRequestHeader "Content-Type", "text/xml"
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
On Error Resume Next
.send
Set html = CreateObject("htmlfile")
html.body.innerHTML = .ResponseText 'getting the err msg here when I F8 on this line
End With

Answer 1

Have you tried
On Error Resume Err_Label
Dim XMLHTTP As Object
Dim myURL As String
Dim html As Object
With CreateObject("MSXML2.serverXMLHTTP")
.Open "GET", myURL, False
.setRequestHeader "Content-Type", "text/xml"
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
.send
Set html = CreateObject("htmlfile")
html.body.innerHTML = .ResponseText 'getting the err msg here when I F8 on this line
End With
Exit sub
err_label:
'any error logging/reporting goes here
exit sub