vba html table class,VBA: Scraping exact elements from HTMLTable

Please can you help me to understand how to find tags a in Table with class name bptable?

I receive Object does not support this method and I don't know how to solve this problem.

Sub ListVideosOnPage(VidCatName As String, VidCatURL As String)

Dim XMLReq As New MSXML2.XMLHTTP60

Dim HTMLDoc As New MSHTML.HTMLDocument

Dim VidRow As MSHTML.IHTMLElement

Dim VidInnerRow As MSHTML.IHTMLElement

Dim VidRows As MSHTML.IHTMLElementCollection

Dim VidInnerRows As MSHTML.IHTMLElementCollection

Dim VidInnerCatID As Integer

XMLReq.Open "GET", VidCatURL, False

XMLReq.send

If XMLReq.Status <> 200 Then

MsgBox "Problem" & vbNewLine & XMLReq.Status & " - " & XMLReq.statusText

Exit Sub

End If

HTMLDoc.body.innerHTML = XMLReq.responseText

Set XMLReq = Nothing

Set VidRows = HTMLDoc.getElementsByClassName("bptable")

Set VidInnerRows = ***VidRows***.getElementsByTagName("a")

With VidRows

For VidInnerCatID = 2 To VidInnerRows.Length

Set VidInnerRow = VidInnerRows(VidInnerCatID)

'Debug.Print

Next VidInnerCatID

End With

End Sub