VBA Excel не удается скачать файл с интернета

Формулировка задачи:

Доброй ночи, есть макрос который должен скачать файл с интернета, но он этого не делает, а выдает - MsgBox "Ошибка!"
В чем может быть дело?
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon.dll" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Sub SaveFileFromInternet(FromURL As String, ToPathName As String)
Dim Res As Long
Res = URLDownloadToFile(0, FromURL, ToPathName, 0, 0)
If Res = 0 Then
MsgBox "Ok!"
Else
MsgBox "Ошибка!"
End If
End Sub
Sub test()
SaveFileFromInternet "https://yastatic.net/morda-logo/i/citylogos/yndxno2-logo-ru.png", "D:\VBA Парсер\logo.png"
End Sub

Решение задачи: «VBA Excel не удается скачать файл с интернета»

textual
                            Листинг программы 
                        

                            Option Explicit

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" _
    (ByVal pCaller As LongPtr, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As LongPtr, _
    ByVal lpfnCB As Long) As LongPtr

Sub SaveFileFromInternet(FromURL As String, ToPathName As String)

Dim Res As LongPtr

Res = URLDownloadToFile(0, FromURL, ToPathName, 0, 0)
If Res = 0 Then
    MsgBox "Ok!"
Else
    MsgBox "Error: " & Res
End If

End Sub

Sub test()

SaveFileFromInternet "https://yastatic.net/morda-logo/i/citylogos/yndxno2-logo-ru.png", "D:\Test\logo.png"

End Sub

                        