I'm trying to use the code below to retrieve data from a webpage. I have my program navigate to the webpage then send the DOM to the sub I've shown below. It seems to me like this should work, but it doesn't. I've tried just about every variation possible, and I can't find anything to make it work. Any ideas that you might have would be greatly appreciated. Thanks!

Code:
Sub CAMSAnalyzer(HTMLDoc As HTMLDocument)
    'Use to sift through the results returned by CAMS
    'and identify the relevant account information
    Dim AllResults As HTMLGenericElement
    Dim TRElements As HTMLGenericElement
    Dim TDElements As HTMLGenericElement
    Dim ClassName As String
    Dim Att As String
    Dim Val As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    k = 0
    j = 0
    i = 0
                
    With Range("A3").Select
    Set AllResults = HTMLDoc.getElementsByTagName("*") 'this is where my problem is!
    For Each TRElements In AllResults.getElementsByTagName("tr")
        For Each TDElements In TRElements.getElementsByTagName("td")
            If TDElements.getAttribute("class") <> Null Then
            ClassName = TDElements.getAttribute("class")
                If ClassName = "dm-attribute" Then
                    Att = "Some Attribute"
                    ActiveCell.Offset(i + 3, 0).Value = Att
                    i = i + 1
                End If
                If ClassName = "dm-value" Then
                    Val = "Some Value'"
                    ActiveCell.Offset(i + 3, 1).Value = Val
                End If
            End If
            j = j + 1
        Next TDElements
        k = k + 1
    Next TRElements
    End With
    Range("C2").Value = "j = " & j
    Range("C3").Value = "k = " & k
End Sub