Проверка доступности URL (SXML2.XMLHTTP)

Public Function GetUrlStatus(URL$) As Boolean
'es - 09.12.2016
'--------------------------------------------------------------------
' Функция проверяет наличие доступа к ресурсу URL$ (без учёта возможного редиректа!)
' Возвращает = True - False (Boolean) - Доступен ли ресурс ?
'--------------------------------------------------------------------
Dim objXMLHTTP As Object
On Error Resume Next
    URL = Trim(URL)
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With objXMLHTTP
        .Open "GET", URL, False
        .send
        'Debug.Print .Status & " - " & .StatusText
        If .Status = 200 Then GetUrlStatus = True 'Проверяем статус
    End With
    Set objXMLHTTP = Nothing
    Err.Clear
End Function

Для подробностей по XMLHTTP - Небходимо подключить в референсах Microsoft XML, vX.X (3 - 6)