Ошибка получения скрипта 70 в ie11 каждый раз, когда я пытаюсь вызвать событие изменения

Question

 Dim htl As MSHTML.HTMLDocument

'Запустить объект IE

    Set IE = CreateObject("InternetExplorer.Application") 

'Перейти на веб-страницу

  IE.Navigate VendorHome

'Sub, который ждет загрузки страницы

Call Load

'Создать событие

      Set htl = IE.document.createEvent("HTMLevents")
      htl.initEvent "change", False, True

'Выберите раскрывающийся список

SelectOpt.Click

'Выберите опцию в выпадающем списке

For Each opt In SelectOpt
     If opt.Text = "Purchase order number" Then
     SelectOpt.ChildNodes(3).Selected = True
      SelectOpt.Options(1).Selected = True
        SelectOpt.selectedIndex = 1
           ' SelectOpt.dispatchEvent (htl) ' Error is Received on this Line 
     End If
 Next