MSHTMLでHTML取得時に、403,404エラーを判別するには？

Dim objMSHTML As New MSHTML.HTMLDocument
Dim objDocument As MSHTML.HTMLDocument

Set objDocument = objMSHTML.createDocumentFromUrl(sURL, vbNullString)
        
Do Until objDocument.readyState = "complete"
    DoEvents
Loop
---------------------------------------------------------------------
VB6.0でHTML文書を取得しようとしています。
上記ソースで、objDocumentから403、404エラーを取得することは可能でしょうか？
他によい方法があれば、合わせてご教授お願いします。