Public Sub myGetHTTP(strAction As String)

    Dim grp As String
    Dim HttpNIPI As String  'http-адрес сервера
    Dim locPath As String   'путь к транзитной папке на данном локальном ПК
    
    'формируем строку http-запроса: GET
    HttpNIPI = "http://10.101.21.178/stamp/web_stamp.php?nocache=1&action="
    grp = "&group=" & "501д"
    locPath = "&path=" & "\\10.101.21.165\stamp\Stamp.xls"

    Dim objHTTP As New MSXML2.XMLHTTP

    With objHTTP
        .Open "GET", HttpNIPI & strAction & grp & locPath, False

        .send   '<-- здесь ошибка

        If objHTTP.status >=  400  And objHTTP.status <=  599  Then
            txtXMLResult = "Error Occurred : " & objHTTP.status & " - " & objHTTP.statusText
        Else
            Text = .responseText
            Headers = .getAllResponseHeaders
        End If
    
    End With
    
    Set objHTTP = Nothing
    
    'MsgBox Headers 'проверка передачи

End Sub