Dim objMSHTML As New MSHTML.HTMLDocument
 Dim objDoc As MSHTML.HTMLDocument
 Dim colDiv As MSHTML.IHTMLElementCollection
 Dim objDiv As MSHTML.IHTMLElement
 Dim colLink As MSHTML.IHTMLElementCollection
 Dim objLink As MSHTML.IHTMLElement
 Dim URL As String

URL = "..."

Set objDoc = objMSHTML.createDocumentFromUrl(URL, vbNullString)
While objDoc.readyState <> "complete"
    Sleep  200 
    DoEvents
Wend

Set colDiv = objDoc.getElementsByTagName("DIV")
For Each objDiv In colDiv
    If objDiv.className = "..." Then
        Set colLink = objDiv.getElementsByTagName("A")
        For Each objLink In colLink
            Debug.Print objLink.href
        Next
    End If
Next