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 DownloadToFile(sSource As String, sTarget As String)
    URLDownloadToFile 0, sSource, sTarget, 0, 0
End Sub

Manchmal verliert man, manchmal gewinnen die Anderen...