Как заставить XMLHTTP работать на MAC

Question

Я уже публиковал ветку, и она по этой ссылке решена идеально. Очистка с использованием XMLHTTP выдает ошибку при конкретном имени класса А вот рабочий код

Sub GetProfileInfo()
Const URL$ = "https://www.zillow.com/detroit-mi/real-estate-agent-reviews/?page="
Dim Http As New XMLHTTP60, Html As New HTMLDocument
Dim post As HTMLDivElement, R&, P&

For p = 1 To 3 'put here the highest number you wanna traverse
    With Http
        .Open "GET", URL & p, False
        .send
        Html.body.innerHTML = .responseText
    End With

    For Each post In Html.getElementsByClassName("ldb-contact-summary")
        With post.querySelectorAll(".ldb-contact-name a")
            If .Length Then R = R + 1: Cells(R, 1) = .item(0).innerText
        End With

        With post.getElementsByClassName("ldb-phone-number")
            If .Length Then Cells(R, 2) = .item(0).innerText
        End With
    Next post
Next p
End Sub

Нокажется, что это работает только на окнах.Как я могу заставить его работать на MAC?