Visual Basic VBA funciona somente com f8, no botão dá erro 424, objeto obrigatório

[Reinaldo de Andrade Pontes]

Eu tenho uma planilha de controle de processos que passam pela minha mão. Nela estão registrados para onde eu mandei, quem recebeu. Vou usar um exemplo simplificado aqui. Eu utilizo um formulário para inserção de dados. Para não digitar o nome do requerente eu fiz o código abaixo. Ele pega as informações na internet (site da Prefeitura) e transfere para duas textbox no meu formulário. Para consultar os processos eu digito o número de protocolo e ano, e clico no botão pesquisar (como na imagem anexa). Ele deveria colar as informações nas textbox, mas dá erro 424, objeto obrigatório. Mas ao clicar em depurar, e depois dar f8 repetidas vezes o código roda e as informações são coladas nas texbox. Alguém me ajuda?

 

Obs.: Para testar, digite um protocolo válido, como 71000, ano 2022. O volume é sempre 1.

 

Private Sub CommandButton1_Click()
Set ie = CreateObject("internetexplorer.application")

ie.navigate "https://www.cajati.sp.gov.br/cidadão"

ie.Visible = True

Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE"
DoEvents
Loop

ie.navigate "https://portalcidadao.cidadeonline.inf.br/wpconsultaprotocolo.aspx"

Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE"
DoEvents
Loop

ie.document.getElementsByTagName("input")(1).Value = Tprot.Value
ie.document.getElementsByTagName("input")(2).Value = 1
ie.document.getElementsByTagName("input")(3).Value = Tano.Value
ie.document.getElementsByClassName("ButtonMaterial btn btn-default")(0).Click

Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE"
DoEvents
Loop

Tass = ie.document.getElementById("span_vASSUNTO").innerText
Treq = ie.document.getElementById("span_vREQUERENTE").innerText
ie.Quit
End Sub
 

[Basole]

Esperimente acrescentar no codigo uma "espera" para a pagina carregar completamente:

Após a linha Loop...

 

 Application.Wait (Now + TimeValue("00:00:05")) '  5 segundos

  

[Reinaldo de Andrade Pontes]

Funcionou!!! Muitíssimo obrigado!!