dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "https://dl.dropboxusercontent.com/s/3sg7jum2jqlrcpr/HitLeap%20Viewer.msi?dl=1&token_hash=AAE7K51xcncGjxUMGAdJo7vZOXQS2-KgG_PHs2KkVuWsYg", False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "c:\HitLeap Viewer.msi", 2 '//overwrite
end with