VBA Internet Explorer Automation, не может запустить событие после заполнения ввода

Question

Я написал код для поиска определенной страницы Internet Explorer и заполнения ввода. Любой ввод, введенный в HTMLInputElement, приводит к триггеру получения поиска, и я хотел бы повторить то же событие. Однако я не могу вызвать его с помощью метода FireEvent. Пожалуйста, посмотрите, дайте мне знать, где я иду не так. Дайте мне знать, если потребуется дополнительная информация.

For Each open_window In shell.Windows
    If TypeName(open_window.document) = "HTMLDocument" Then
        If open_window.document.Title = "abc" Then
        Set hDoc = open_window.document
        Set ssearch = hDoc.getElementsByTagName("input")
        For Each i In ssearch
            ActiveCell.Value = i.Type
            If i.Type = "search" Then
                Set ssearch = i
                ssearch.Focus
                ssearch.Value = "123"
                ssearch.FireEvent("oninput")
            Exit For
            End If
        Next i
        End If
    End If
Next

Ниже приведены подробные сведения на веб-странице

<input aria-controls="abc" type="search" placeholder=""></input>