#If Win64 Then
  Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
  ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#Else
  Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
  ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Sub DownLoad_With_WinAPI_Declare_Function()
  Const LocalFileName$ = "i:\temp\z.xlsx"
  Const URL$ = "http://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=280522&amp...;
  Debug.Print "Download Status : " & URLDownloadToFile(0, URL, LocalFileName, 0, 0)
End Sub

    Dim m_url As String, d_url As String, file_name As String, temp_path As String
    Dim body() As Byte
    m_url = "https://circabc.europa.eu/ui/group/b21bad6d-4ffc-4aff-8ae6-fe5f35a7480a/library/0874d9bc-2772-4c8c-8b79-665279a04d01/details"
    d_url = "https://circabc.europa.eu/rest/download/" & Split(Split(m_url, "library/")(1), "/")(0)
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", d_url, 0
        .Send
        body = .responseBody
        file_name = Split(.getResponseHeader("Content-Disposition"), "filename=")(1)
    End With
    temp_path = Environ("Temp") & "\" & file_name
    With CreateObject("ADODB.Stream")
        .Mode = 3
        .Type = 1
        .Open
        .Write body
        .SaveToFile temp_path, 2
    End With
    CreateObject("Shell.Application").Open (temp_path)