Windows-Standarddialog für einen Datei-Download

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

Private Sub Form_Load()
  Dim dUrl As String
  dUrl = "http://www.beispiel.com/datei.zip"
' Datei downloaden...
  DoFileDownload StrConv(dUrl, vbUnicode)
End Sub