Объект Excel VBA IE и использование раскрывающегося списка

Я экспериментирую с веб-автоматизацией и немного пытаюсь использовать раскрывающийся список.

Мой код работает до момента поиска названия компании и нажатия «перейти». На новой странице я не могу найти правильный код, который выбирает группу элементов, представляющих раскрывающийся список. Затем я хочу выбрать «100» записей, но я даже не могу захватить узлы, представляющие этот список.

Я просматривал несколько разных страниц в stackoverflow, на которых рассказывается о селекторах CSS, и просматривал учебные пособия, но, похоже, это тоже не помогает. Либо я ничего не получаю, либо то, что я захватываю, не может использовать метод getElementsByTagName, который в конечном итоге я пытаюсь развернуть в узлах td и select. Пока не знаю, что с ними делать, но я даже не могу их взять. Мысли?

(обратите внимание, что линия остановки — это просто строка, на которой я использую точку останова, чтобы остановить свой код)

Вспомогательный сайт CSS: https://www.w3schools.com/cssref/trysel.asp

Код:

Option Explicit

Sub test()
    On Error GoTo ErrHandle
    
    Dim ie As New InternetExplorer
    Dim doc As New HTMLDocument
    Dim ws As Worksheet
    Dim stopLine As Integer
    
    Dim oSearch As Object, oSearchButton As Object
    
    Dim oForm As Object
    Dim oSelect As Object
    Dim list As Object
    
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ie.Visible = True
    ie.navigate "https://www.sec.gov/edgar/searchedgar/companysearch.html"
    
    Do
    DoEvents
    Loop Until ie.readyState = READYSTATE_COMPLETE
    
    Set doc = ie.Document
    
    Set oSearch = doc.getElementById("companysearchform")
    Set oSearchButton = oSearch.getElementsByTagName("input")(1)
    Set oSearch = oSearch.getElementsByTagName("input")(0)
    oSearch.Value = "Summit Midstream Partners, LP"
    
    oSearchButton.Click
    
    Do
    DoEvents
    Loop Until ie.readyState = READYSTATE_COMPLETE
    
    Set doc = ie.Document
    
    Set list = doc.querySelectorAll("td select")
    
    
    stopLine = 1
    
    Exit Sub
    
ErrHandle:
        MsgBox Err.Number & " - " & Err.Description, vbCritical
        Exit Sub
        
    
End Sub