Selecionando um item de menu suspenso no internet explorer com vba

[Phrique]

Pessoal, boa tarde.

Tudo bem?

Pessoal preciso de orientações de como usar o vba para selecionar um item do menu suspenso que possui o efeito cascata em outro campo no internet Explorer.

Já tentei usar doc1.Document.getElementById("WFRInput877545").innerText, tentei selecionar usando a classe e não o consegui.

Eu até consegui colocar o valor que eu queria com o código abaixo

Set oSelect = doc1.Document.getElementById("WFRInput877545")
 oSelect.Focus
 oSelect.Value = "Projeto 3"
 oSelect.FireEvent ("onchange")

Notei que até o código de click no botão pesquisar não esta funcionando

<div class="HTMLButton" id="pesquisar" style="left: 968px; top: 49px; width: 177px; height: 33px; display: block; position: absolute; z-index: 100000;">
    <button style="width: 100%; height: 33px; text-decoration: none;" type="button">
        <img src="openImageStreamFromGalery.do?sys=SGP&amp;formID=464569073&amp;guid=%7BF0155A0D-DE1E-4F0A-B5BD-E03B601599C8%7D">
        <span style="color: rgb(0, 128, 128); font-family: MS Sans Serif; font-size: 10pt;">Pesquisar RDO</span>
    </button>
</div>

Mas não libera o próximo campo que esta em efeito cascata.

Segue abaixo o código quando inspeciono o elemento.

<input id="WFRInput877545" autocomplete="off" name="WFRInput877545Show" style="height: 21px; padding-right: 17px; text-decoration: none;">

Acredito que esse código chame o código abaixo

<select id="lookupInput" size="2" style="width: 100%; min-height: 48px;">
    <option value=""></option>
    <option value="985">Projeto B1</option>
    <option value="685">Projeto 3</option>
</select>

Mas não consigo selecionar um dos itens

Estou precisando de uma ajudar sou novo nessa interação vba com internetExplorer.

Desde já agradeço