VBA Code to Search for Element on Website and Repeat Search - excel

Question

I am fairly new to VBA and web scraping, but have been reading a lot trying to learn.
I have a long list of addresses in column A of an Excel file. I would like to like to search each of these addresses on the Website http://www.parkopedia.com. This website finds the closest parking and cost based on a given address.
Based on the results, I would like to pull the inner text of two Span tags. This inner text represents the cost of the closest parking and the distance to the parking.
<div class="LocationListItem__searchDetails">
<div class="LocationDetailsSearchDetails">
<div class="LocationDetailsSearchDetails__detail">
<span class="LocationDetailsSearchDetails__detail__value">Free</span>
<span class="LocationDetailsSearchDetails__detail__label">2 hours</span>
</div>
<div class="LocationDetailsSearchDetails__detail">
<span class="LocationDetailsSearchDetails__detail__value">20 </span>
In this case I would like to pull "Free" and "20" into columns B and C of my spreadsheet. But it appears they both have the same Class name of "LocationDetailsSearchDetails__detail"
I have about 1500 results to search, so if possible using xmlHTTP would be preferred.
The first address that I am searching is "10 herrmann place new york 10710"
Below is the code that I have tried far. For right now I have the URL entered directly into the code rather than pulling from the Excel file. I will figure out how to get the correct URL to pull once I can get the correct data to be scraped from the site. The data in B2 is currently blank so that it only pulls the base URL with nothing else on the end.
The issue that I seem to be having is finding a way to get the below line to work correctly.
GetParkingData = html.getFirstSpanWithClass('LocationDetailsSearchDetails__detail__value').innerText
Module
Option Explicit
Public Sub GetInfo()
Dim http As clsHTTP, sResponse As String, lastRow As Long, groupResults(), i As Long, html As HTMLDocument
Set html = New HTMLDocument
Set http = New clsHTTP
Const BASE_URL As String = "https://en.parkopedia.com/parking/locations/10_herrmann_place_new_york_10710_united_states_1jegdr72zr6xf2yc83/?arriving=202107131800&leaving=2021071320000"
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Sheet1")
lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
Select Case lastRow
Case 1
Exit Sub
Case 2
ReDim arr(1, 1): arr(1, 1) = .Range("B2").Value
Case Else
arr = .Range("B2:B" & lastRow).Value
End Select
ReDim groupResults(1 To lastRow - 1)
With http
For i = LBound(arr, 1) To UBound(arr, 1)
If Len(BASE_URL & arr(i, 1)) > Len(BASE_URL) Then
sResponse = .GetHTML(BASE_URL & arr(i, 1))
html.body.innerHTML = sResponse
groupResults(i) = .GetParkingData(html)
sResponse = vbNullString: html.body.innerHTML = vbNullString
End If
Next
End With
For i = LBound(groupResults) To UBound(groupResults)
.Cells(i + 1, "C") = groupResults(i)
Next
End With
Application.ScreenUpdating = True
End Sub
Class ClsHTTP
Option Explicit
Private http As Object
Private Sub Class_Initialize()
Set http = CreateObject("MSXML2.XMLHTTP")
End Sub
Public Function GetHTML(ByVal URL As String) As String
Dim sResponse As String
With http
.Open "GET", URL, False
.send
GetHTML = StrConv(.responseBody, vbUnicode)
End With
End Function
Public Function GetParkingData(ByVal html As HTMLDocument) As String
On Error GoTo errhand:
GetParkingData = html.getFirstSpanWithClass('LocationDetailsSearchDetails__detail__value').innerText
Exit Function
errhand:
GetParkingData = "Not Found"
End Function
Thank you all very much! Please forgive anything that seems novice, I am trying to teach myself VBA and web scraping.