Sub DownloadURL (strURL, strFile)
    Dim objHTTP, strRet : strRet = “”
    Set objHTTP = CreateObject (“MSXML2.ServerXMLHTTP”)
    objHTTP.open “GET”, strUrl
    objHTTP.setRequestHeader “Referer”, strUrl
    objHTTP.send
    strRet = objHTTP.responseBody
    Set objHTTP = Nothing
    
    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    Dim objADO :   Set objADO = CreateObject (“ADODB.Stream”)
    objADO.Type = adTypeBinary
    objADO.Open
    objADO.Write strRet
    objADO.SaveToFile strFile, adSaveCreateOverWrite
    objADO.Close
    Set objADO = Nothing
End Sub