File download from Internet in VBA (1 Viewer)

Option Compare Database
Option Explicit

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

Sub DownloadFileFromWeb()
On Error GoTo err_1
    Const strUrl As String = "http://www.puremis.net/excel/index.html"
    Dim strSavePath As String
    Dim returnValue As Long
    strSavePath = CurrentProject.Path & "\tempupdate2.html"
    returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)

Err_Exit:
    Exit Sub
    
err_1:
    MsgBox err.Description
    Resume Err_Exit
End Sub

Option Compare Database
Option Explicit

Public Declare Function DoFileDownload Lib "shdocvw.dll" _
        (ByVal lpszFile As String) _
        As Long

Sub sDownloadHTTP(strURL As String)
    strURL = StrConv(strURL, vbUnicode)
    DoFileDownload (strURL)
End Sub