Получите электронную почту от HTML получите XMLHTTP быстрее

Question

Я создал пользовательскую функцию с целью получения электронного письма с указанным c html таким образом

Sub Test()
Debug.Print GetEmailFromHTML("https://www.archaeology.lk/pharmacylocator/pharmacy_details.php?PhamercyID=589")
End Sub

Function GetEmailFromHTML(sURL As String)
Dim html As New HTMLDocument

With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", sURL, False
    .send
    html.body.innerHTML = .responseText
End With

On Error Resume Next
    GetEmailFromHTML = html.querySelectorAll("a[href*='mailto']")(0).innerText
On Error GoTo 0
Set html = Nothing
End Function

При запуске макроса теста код занимает слишком много времени, но это работает хорошо наконец Есть ли способ заставить XMLHTTP работать быстрее или есть альтернативный подход? Все, что мне нужно от URL, это получить информацию по электронной почте.