' Benötigt wird nur folgende API-Funktion
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

Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
Download.Show
' URL-Link der Datei, die heruntergeladen werden soll
sURL = "http://www.DATEI.de"
 
' Dateiname auf dem lokalen System
sLocalFile = "C:\Downloads\usw..."
 
' Download ausführen
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
Download.Hide
Activate = MsgBox("Download erfolgreich !!", vbOKOnly, "FERTIG !!") = vbOK