Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
  "URLDownloadToFileA" (ByVal pCaller As int32, ByVal szURL As String, ByVal _
  szFileName As String, ByVal dwReserved As int32, ByVal lpfnCB As int32) As _
  int32 
 
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean 
Dim lngRetVal As int32 
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) 
If lngRetVal = 0 Then DownloadFile = True 
End Function