Sub DownloadXLFileFromURL()
Dim myURL As String, sFilename As String
myURL = "https://img08.rl0.ru/6b3909c8b45584126702b626f5dfc2e6/c6809x4545/fullhdpictures.com/wp-content/uploa...;
sFilename = "D:\Dubai-HD-Wallpaper.jpg"
Dim WinHttpReq As Object, oStream As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False ', "username", "password"
WinHttpReq.Send
myURL = WinHttpReq.ResponseBody
If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.ResponseBody
    oStream.SaveToFile sFilename, 2  ' 1 = no overwrite, 2 = overwrite
   oStream.Close
End If
End Sub