'
' ///////////////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )  
' //                                                   
' // Web: http://InfrAngeluX.Sytes.Net/                
' //                                                        
' // |-> Pueden Distribuir Este Código siempre y cuando       
' // no se eliminen los créditos originales de este código     
' // No importando que sea modificado/editado o engrandecido   
' // o achicado, si es en base a este código                 
' //////////////////////////////////////////////////////////////////////////
Option Explicit
Function DescargarArchivo(strDowload As String, SaveOn As String) As Long
On Error GoTo 1:
Dim xml                     As Object
Dim adoStream               As Object
    Set xml = CreateObject("Microsoft.XMLHTTP")
    Set adoStream = CreateObject("Adodb.Stream")
    Call xml.Open("GET", strDowload, 0)
    Call xml.Send
    adoStream.Type = 1
    Call adoStream.Open
    Call adoStream.write(xml.responseBody)
    Call adoStream.SaveToFile(SaveOn, 2)
    Call adoStream.Close
    DescargarArchivo = 1
Exit Function
1:
End Function
 

DoEvents!

.
Uff de eso ya hace bastante tiempo, recuerdo que la cree cuando empezaba con Ajax y la traduje a vb6 después vi que era un molde bastante "básico" y rutinario (repetible) por decirlo de alguna manera, en su tiempo quedo aclarado el asuntito.

Llenándonos a algo mas de lleno a quien le agrade el diseño y codificación web lo sabra...

http://www.w3schools.com/ajax/default.asp

Dulces Lunas!¡.