Excelente Muzztein,
Esta es la función que hice a partir del código que está en la URL que me diste.
Código:
Function SalvaImagen(URL)
Const cOUT = "C:\imagenes\"
'*
'* Carga el archivo de imagen a partir del URL
'*
Dim objXML
'Set objXML = CreateObject("MSXML2.XMLHTTP")
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", URL, False
objXML.Send
Dim binXML
binXML = objXML.ResponseBody
Set objXML = Nothing
'*
'* guarda el archivo
'*
Dim objADO
Set objADO = CreateObject("ADODB.Stream")
objADO.Type = 1
objADO.Open
objADO.Write binXML
objADO.SaveToFile cOUT & "test.png",2
Set objADO = Nothing
End function
muchas gracias!