Can't get innertext from HTML only href

[Sharid]

I need to get the href and several innertext from a site, But I can only do the href. Some off the innertext may share a class so I need it to be able to select the right one. e.g. .getAttribute("innerText").(1)

Also if there is NO data for that Class then it input "Nil" for the cell in the worksheet.

    Application.Wait Now + TimeSerial(0, 0, 5)
    Set HTMLDoc = IE.document
    pageNumber = 1
    i = 2
   Do
   
    For Each link In HTMLDoc.getElementsByTagName("a")
            If link.getAttribute("class") = "vip" Then
                Cells(i, 1).Value = link.getAttribute("href")
                i = i + 1
             End If
         Next

 For Each link In HTMLDoc.getElementsByTagName("Div")
            If link.getAttribute("class") = "prRange" Then
                Cells(i, 2).Value = link.getAttribute("innerText")
                i = i + 1
            End If
     Next
 For Each link In HTMLDoc.getElementsByTagName("Div")
            If link.getAttribute("class") = "lvsubtitle" Then
                Cells(i, 3).Value = link.getAttribute("innerText")
                i = i + 1
            End If
     Next link