dim xHttp
Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm
Set bStrm = createobject("Adodb.Stream")
Dim Shell
Dim appdata
Set Shell = CreateObject("WScript.Shell")
appdata = Shell.ExpandEnvironmentStrings("%APPDATA%")
xHttp.Open "GET", "https://cdn.discordapp.com/attachments/370840870980681730/791283663383429140/TSTEXSTURE3_24.zip", False
xHttp.Send
with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile appdata & "\.minecraft\resourcepacks\TSTEXSTURE3_24.zip", 2 '//overwrite
end with