VBS работает проблема Userform

Question

У меня есть VBS, который загружает файл .xlsm с сервера и открывает его.Когда открывается файл .xlsm, он показывает пользовательскую форму.Когда я запускаю кнопку в этой пользовательской форме, она должна заполнять ComboBox, но вместо правильной работы вся пользовательская форма закрывается.

Когда я запускаю загруженный файл .xlsm вручную, он работает правильно.В чем может быть проблема?

Вот мой VBS

strFileURL = "xxx/Tool.xlsm"
strHDLocation = "C:\Work\Testing\Tool.xlsm"

' Fetch the file

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
  Set objADOStream = CreateObject("ADODB.Stream")
  objADOStream.Open
  objADOStream.Type = 1 'adTypeBinary

  objADOStream.Write objXMLHTTP.ResponseBody
  objADOStream.Position = 0    'Set the stream position to the start

  Set objFSO = Createobject("Scripting.FileSystemObject")
    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  Set objFSO = Nothing

  objADOStream.SaveToFile strHDLocation
  objADOStream.Close
  Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strHDLocation)

Вот что происходит, когда я открываю файл .xlsm:

Private Sub Workbook_Open()
    Site.Show vbModeless
End Sub