Downloading file from web

#If VBA7 Then
    Private 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
    Private 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

Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
   DownloadFile = URLDownloadToFile(0&, _
                                    sSourceUrl, _
                                    sLocalFile, _
                                    BINDF_GETNEWESTVERSION, _
                                    0&) = ERROR_SUCCESS
End Function

Private Sub DownloadSingleFile()
    Dim sSourceUrl As String, sLocalFile As String

    sSourceUrl = "">upload.wikimedia.org/.../Mercedes_V6_DTM_Rennmotor_1996.jpg"
    sLocalFile = "C:\Temp\engine.jpg"

    If DownloadFile(sSourceUrl, sLocalFile) Then
        Debug.Print "File downloaded"
    Else
        Debug.Print "File download not downloaded"
    End If
End Sub