Capturar valor da web

Pessoal, boa tarde.

Vejam meu código. Travei após o i.click.
Conseguem me ajudar?

Sub busca_desc()

’ Dim ie As InternetExplorer
Dim tbody As HTMLTableSection
Dim req As New XMLHTTP60
Dim respostaJson As String, numOportunidade As String
Dim i As Variant

’ numOportunidade = 'ie.document.getElementsByTagName(“input”)(3).Value = Cells(3, 1).Value + 1 ’

 Set ie = CreateObject("internetexplorer.application")
 ie.navigate "https://www.petronect.com.br/irj/go/km/docs/pccshrcontent/Site%20Content%20(Legacy)/Portal2018/pt/lista_licitacoes_publicadas_ft.html"  'Url do site
 ie.Visible = True

    Application.Wait (Now + #12:00:02 AM#)

Do While ie.Busy And ie.readyState <> "READYSTATE_COMPLETE" ' aguardar a página carregar
    DoEvents
Loop

Application.Wait (Now + #12:00:02 AM#)

ie.document.getElementsByTagName("input")(3).Value = 7003362153#  ' Insiro o número da oportunidade no campo para pesquisa. No meu caso vou precisar de um Loop para pegar o valor da próxima linha . numOportunidade = 'ie.document.getElementsByTagName("input")(3).Value = Cells(3, 1).Value + 1

ie.document.getElementsByTagName("button")(3).Click 'aciono o botão pesquisar
Application.Wait (Now + #12:00:02 AM#)
 
Do While ie.Busy And ie.readyState <> "READYSTATE_COMPLETE" ' aguardar a página carregar
    DoEvents
Loop

Set tbody = ie.document.getElementById("result")

For Each i In tbody.getElementsByTagName("A")
  
      i.Click ' clino objeto com Hyperlink

          Application.Wait (Now + #12:00:02 AM#)

'Ao carregar a nova página preciso capturar o valor do objeto id="object_descr_ctr.
’ Alimento a celula “b3” da planilha com o valor do id="object_descr_ctr
’ volta para a página de pesquisa setado em ie.navigate
’ capturo o próximo valor para pesquisar. neste caso estará na celula “a4” da planilha. Executo novamente a pesquisa e faço esse loop até a o ultimo valor da coluna “A”

End Sub

Voce ja fez quase tudo, o restante é mais fácil. Vou colocar aqui o codigo pro click no resultado e pra capturar o texto da descrição. Depois disso basta refazer o processo e pesquisar o proximo.
Lembrando tudo isso que ja escreveu precisa estar num loop, pra ir acessando/pesquisando tudo que tiver na coluna “A”

 ie.Document.getElementById("result").getElementsByTagName("a")(0).Click

'COLOQUE AQUI UM TEMPO DE ESPERA/CARREGAMENTO DA PÁGINA

descrição = ie.Document.getElementById("object_descr_ctr").InnerText`

Olá Raygsson, obrigado pelo apoio.

Já havia testado esse código e não tive sucesso.
Você chegou a testá-lo?

Testei sim, a primeira linha de comando faz o click no primeiro resultado da pesquisa e a segunda captura o texto da descrição.
Fica atento apenas se as páginas estão totalmente carregadas antes do click e captura, deixa um tempo de espera entre as ações.

Obrigado Raygsson.
Consegui efetuar o ajuste…tudo funcionando!!!