How to extract company address from website - excel

Question

I have been browsing, trying and reading different codes from here but i can't get mine to work. What i am trying to do:
Browse a web which contains all information about the country's companies.
Look up the company in the website (taking as reference the name from a excel cell).
When the company web loads, extract "Domicilio" (address) from it and past it on another excel cell.
Information to take into account:
Website is: https://www.infocif.es/
Form to look up is: https://www.infocif.es/general/empresas-informacion-listado-empresas.asp?Buscar= , so if you want to search "014 media SL" company, it would be https://www.infocif.es/general/empresas-informacion-listado-empresas.asp?Buscar=014 media SL
If you load the previous link, which leads to the final link https://www.infocif.es/ficha-empresa/014-media-sl, you will see in the "informacion de la compañia" div, the needed "domicilio" information. In this case, i would like to extract: Calle Alcala 106 Primero 28009 - Madrid
what i have tried so far. The following codes from some great people on this web:
clsHTTP (MODULE CLASS)
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 GetDomicilio(ByVal html As HTMLDocument) As String
On Error GoTo errhand:
GetDomicilio = html.querySelector("div.row p:nth-child(6)").innerText
Exit Function
errhand:
GetDomicilio = "Not Found"
End Function
Standard 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://www.infocif.es/general/empresas-informacion-listado-empresas.asp?Buscar="
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Hoja1")
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
Select Case lastRow
Case 1
Exit Sub
Case 2
ReDim arr(1, 1): arr(1, 1) = .Range("A2").Value
Case Else
arr = .Range("A2:A" & 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) = .GetDomicilio(html)
sResponse = vbNullString: html.body.innerHTML = vbNullString
End If
Next
End With
For i = LBound(groupResults) To UBound(groupResults)
.Cells(i + 1, "B") = groupResults(i)
Next
End With
Application.ScreenUpdating = True
End Sub
I have been trying to figure it out, and i believe that it is failing by 2 reasons:
the Base URL is wrong, or
I cant properly define the queryselector for "domicilio".
What am i getting when i run the code above?
It will run, no issues, but it will return a "not found" reply on b column. Please, assume that all the company names are listed on A column (there are like 1800 rows). Company names start by A2.
You can try the following companies:
014 MEDIA SL
100M MONTADITOS INTERNACIONAL SL
649298 CASTELLON SL
ABACO ASESORES PERICIALES SL
ABADA SA
ABELLCON 3 SL
ABEX-EXCELENCIA ROBOTICA SL
ABF IBERIA HOLDING SL
ABRAFACT SL
ACCENTURE HOLDINGS IBERIA SL
ACCESORIOS DE TUBERIA SA
ACCESORIOS FRIGORIFICOS SA
ACCIONA MOBILITY SA