Scrape href error

[YasserKhalil]

Hello
I am trying to extract the urls from specific page ...

Sub Test()    Dim xmlPage             As New MSXML2.XMLHTTP60
    Dim htmlDoc             As New MSHTML.HTMLDocument
    Dim htmlResults         As MSHTML.IHTMLElementCollection
    Dim htmlResult          As MSHTML.IHTMLElement
    Dim strUrl              As String
    Dim ws                  As Worksheet
    Dim r                   As Long
    
    r = 2
    Set ws = Sheets("Sheet1")


    Application.ScreenUpdating = False
        xmlPage.Open "GET", "http://plants.newgarden.com/12190005/Catalog", False
        xmlPage.send
        
        If xmlPage.Status <> 200 Then
            MsgBox "Problem" & vbNewLine & xmlPage.Status & " - " & xmlPage.statusText
            Exit Sub
        End If
        
        htmlDoc.body.innerHTML = xmlPage.responseText
    
        Set htmlResults = htmlDoc.getElementsByClassName("CCPageText")
    
        For Each htmlResult In htmlResults
            
            If InStr(htmlResult.innerHTML, "href") > 0 Then
            Debug.Print htmlResult.innerHTML
            strUrl = htmlResult.getAttribute("href")
            End If
            Next htmlResult
    Application.ScreenUpdating = True
End Sub

I got error at this line

 strUrl = htmlResult.getAttribute("href")

 

[YasserKhalil]

Thanks I could figure it out using

strUrl = htmlResult.Children(0).getAttribute("href")