dim objXMLHTTP,yourfile
yourfile="myfile.csv"
DestFolder = "./"
URL = "your URL here/" &yourfile
set objXMLHTTP = CreateObject("Msxml2.ServerXMLHTTP.4.0")
objXMLHTTP.Open "GET", URL, False
objXMLHTTP.Send
set oStream = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
oStream.type = adTypeBinary
oStream.open
oStream.write objXMLHTTP.responseBody
oStream.savetofile DestFolder & yourfile, adSaveCreateNotExist
oStream.close
set oStream = nothing
Set objXMLHTTP = Nothing