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

Option Explicit

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal _
    lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
  
Function IsDLLAvailable(ByVal DllFilename As String) As Boolean
Dim hModule As Long
  
' attempt to load the module
hModule = LoadLibrary(DllFilename)
If hModule > 32 Then
FreeLibrary (hModule) ' decrement the DLL usage counter
IsDLLAvailable = True
End If
End Function

Sub Test()

MsgBox IsDLLAvailable("urlmon.dll")

End Sub