Как из ВБА перебрать элементы страницы jsp

Public Sub HDocAnaliz(HDoc As HTMLDocument, OffSet As String)
Dim HDoc1 As HTMLDocument
Dim HFrm As HTMLFormElement, HEl As IHTMLInputElement, HFEl As IHTMLFormElement  ' IHTMLElement
Dim HElCol As IHTMLElementCollection
    On Error Resume Next
    Debug.Print OffSet; "BEGIN ======================"
    Debug.Print OffSet; "Frames"; HDoc.frames.Length; "   Forms"; HDoc.forms.Length
    Debug.Print "URL    "; HDoc.URL
    Debug.Print "Title  "; HDoc.Title
    
    On Error Resume Next
     Set HElCol = HDoc.all.tags("input")
    For Each HEl In HElCol
        Debug.Print HEl.Name
        Debug.Print HEl.form
        Debug.Print HEl.Type
        Debug.Print HEl.Value
    Next HEl
 
    On Error GoTo NoFrame
    For i = 0 To HDoc.frames.Length - 1
        Debug.Print OffSet; "frame="; i; " "
        Debug.Print OffSet; "frame="; HDoc.frames(i).Name; " "
        Set HDoc1 = HDoc.frames.Item(i).document
        On Error Resume Next
        Call HDocAnaliz(HDoc1, OffSet & "-")
        Set HDoc1 = Nothing
    Next i
NoFrame:
On Error Resume Next
    For Each HFrm In HDoc.forms
        For Each HEl In HFrm.elements
            Debug.Print OffSet; "Form"; " "; HFrm.Name; " "; HEl.Name; " " ; HEl.Value
        Next HEl
    Next HFrm
    
    
    For i = 0 To HDoc.all.Length
        Debug.Print HDoc.all.Item(i).tagName
        Debug.Print HDoc.all.Item(i).Name
        Debug.Print HDoc.all.Item(i).Value
    Next i
    Debug.Print OffSet; "END ======================"
End Sub