I need to convert this CSV downloader from Internet Explorer into one that can dowload from Chrome

[Naweyar]

This is where strURL is a pathway that leads to a .csv file
Is there a way to convert this so I can specify where to save for Chrome?
I had to use a shell function to access the Chrome framework.

Dim http As Object
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", strURL, False
http.Send


strURL = http.responseBody
If http.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write http.responseBody
    oStream.SaveToFile "C:\My Files\MyCSV.csv", 2 
    oStream.Close
End If

Thanks!

 

[Naweyar]

Still no ideas?