#If Win64 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Sub Vipiska()
' подключено две библиотеки  microsoft internet controls и microsoft html object library
Dim IE As InternetExplorer
Dim PageHTML As HTMLDocument
Dim Sayt As String

Sayt = "https://rosreestr.gov.ru/wps/portal/p/cc_present/EGRN_3" '  ссылка на сайт

Set IE = New InternetExplorer ' открываем IE
IE.Visible = True ' Делаем IE видимым
IE.Navigate Sayt ' загружаем сайт

Sleep dwMilliseconds:=5000 ' На всякий жду 5 сек, чтобы уже точно все прогрузилось.

Do While IE.Busy = True ' Ещё раз проверяю что страница загружена полностью
Loop

Dim ColElements As Collection
Set ColElements = New Collection

Set PageHTML = IE.Document ' загоняем страницу в переменную

For Each FR In PageHTML.all ' цикл по всем элементам на странице
      If FR.className = "v-filterselect-input" Then ' "v-filterselect-input" - нашёл в коде HTML
         ColElements.Add FR ' Добавляем элемент в коллекцию
      End If
Next
' Выяснил через код HTML, что № элемента который я хочу изменить - это 4

ColElements(4).Value = "Российское юридическое лицо" ' изменяю значение
ColElements(4).Click ' на всякий кликую, для отработки события, но ничего не происходит

' откопал событие (я так надеюсь), которое должно возникать при Click и пытаюсь его запустить с помощью нижеуказанной процедуры, но всё равно ничего не происходит.

PageHTML.parentWindow.execScript "function jd(b){return function(){try{return kd(b,this,arguments)}catch(a){throw a}}}", "JScript"

End Sub

Public NameForm as string
Private Sub ComboBox1_Change()
    NameForm = me.name ‘Запоминаем имя формы
    Test  ‘ Запуск другой процедуры
End sub

Sub Test ()
    For i2 = 1 To ThisWorkbook.VBProject.VBComponents.Count ‘ вычисляем номер нужной UserForm
       If ThisWorkbook.VBProject.VBComponents(i2).Name = NameForm Then
          Exit For
       End If
    Next

    Dim TempForm As Object   ' переменная для временной формы
    Dim NameActCont as string ‘ ' переменная для имени активного контрола

    Set TempForm = ThisWorkbook.VBProject.VBComponents(i2) ' Засовываю в переменную нужную UserForm
    NameActCont = TempForm.ActiveControl.Name ' Вот тут и происходит беда. 438 ошибка 
 End sub