No error, but No Data resulting from VBA HTML Pull - html

Question

EDITED: So this one works for me.. I am looking to convert this to my purposes now. I am trying to switch this to the title and price, but when I convert the line:
Set links = .document.querySelectorAll(".s-item__link[href]")
to
Set links = .document.querySelectorAll(".s-item__title [h3]")
It pulls "[object HTMLHeadingElement]" for each row - thoughts?
Option Explicit
Public Sub GetInfo()
Dim ie As New InternetExplorer, ws As Worksheet, t As Date
Const MAX_WAIT_SEC As Long = 10
Set ws = ThisWorkbook.Worksheets("Sheet1")
With ie
.Visible = True
.Navigate2 "https://www.ebay.com/"
While .Busy Or .readyState < 4: DoEvents: Wend
ie.document.querySelector("#gh-ac").Value = "Bike"
ie.document.querySelector("#gh-btn").Click
While .Busy Or .readyState < 4: DoEvents: Wend
Dim links As Object, i As Long, count As Long
t = Timer
Do
On Error Resume Next
Set links = .document.querySelectorAll(".s-item__link[href]")
count = links.Length
On Error GoTo 0
If Timer - t > MAX_WAIT_SEC Then Exit Do
Loop While count = 0
For i = 0 To links.Length - 1
ws.Cells(i + 1, 1) = links.item(i)
Next
.Quit
End With
End Sub

Answer 1

Here is an example of doing a search for Bike on ebay and looping until links are present
Option Explicit
Public Sub GetInfo()
Dim ie As New InternetExplorer, ws As Worksheet, t As Date
Const MAX_WAIT_SEC As Long = 10
Set ws = ThisWorkbook.Worksheets("Sheet1")
With ie
.Visible = True
.Navigate2 "https://www.ebay.com/"
While .Busy Or .readyState < 4: DoEvents: Wend
ie.document.querySelector("#gh-ac").Value = "Bike"
ie.document.querySelector("#gh-btn").Click
While .Busy Or .readyState < 4: DoEvents: Wend
Dim links As Object, i As Long, count As Long
t = Timer
Do
On Error Resume Next
Set links = .document.querySelectorAll(".s-item__link[href]")
count = links.Length
On Error GoTo 0
If Timer - t > MAX_WAIT_SEC Then Exit Do
Loop While count = 0
For i = 0 To links.Length - 1
ws.Cells(i + 1, 1) = links.item(i)
Next
.Quit
End With
End Sub