' AmazonGetAndSaveReportDocument
Function AmazonGetAndSaveReportDocument(url,FileName)
url=Replace(url,"&","&")
url=Replace(url,"%2F","/")

Set objHTTP = CreateObject("MSXML2.XMLHTTP.6.0")

objHTTP.Open "Get", url, False

objHTTP.Send

' prepare the file system
Set objFSO=CreateObject("Scripting.FileSystemObject")

' write file
outFile=FileName

Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2

'Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")

'Specify stream type - we want to save binary data.
BinaryStream.Type = adTypeBinary

'Open the stream And write binary data To the object
BinaryStream.Open
' MUST USE Body which is the BINARY representation otherwise an error arises -
' see https://learn.microsoft.com/en
BinaryStream.Write objHTTP.ResponseBody

'Save binary data To disk
BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function