AJUDA PARA PEGA CODIGO UMA LINHA HTML

Citação:

<td onclick=[Ô]return abrirjanela([ô]566836[ô], [ô]../VooDetalhe/VooDetalhe2.aspx?V=566836[ô])[Ô] style=[Ô]width:35px;word-break:break-all;[Ô]>4230</td>

Citação:

Private Sub ButtonPs_Click()
On Error Resume Next

Dim i As Long

Dim IE As Object
Dim objElement As Object
Dim objCollection As Object


[ô] Cria instância do IE
Set IE = CreateObject([Ô]InternetExplorer.Application[Ô])

[ô] Define o endereço a ser carregado
IE.Navigate ([Ô]https://azulnet.voeazul.com.br/ScanMonitorCDV/Login/Login.aspx?ReturnUrl=%2fscanmonitorcdv%2fLogin%2fIndex.aspx[Ô])

[ô] Define se a janela do IE será ou não exibida
IE.Visible = True

[ô] Espera carregar...
Do While IE.Busy
Loop

[ô] Preenche o Formulario
IE.Document.all([Ô]txtUsuario[Ô]).innertext = [Ô]XXXX[Ô]
IE.Document.all([Ô]txtSenha[Ô]).innertext = [Ô]XXXX[Ô]

[ô] Submete o Formulario
IE.Document.all([Ô]btnOK[Ô]).Click

[ô] Espera carregar...
Do While IE.Busy
Loop

[ô] Submete o Formulario
IE.Document.all(Mid(TextVoo.Value, 1, 2)).Click

Do While IE.Busy
Loop

[ô] Seta campos do formulario
IE.Document.all([Ô]ctl00_Corpo_ddlStatus[Ô]).Value = 0
IE.Document.all([Ô]ctl00_Corpo_rblDataNormal[Ô]).Checked = Checked

[ô] Submete o Formulario
IE.Document.all([Ô]ctl00_Corpo_btnFiltroOK[Ô]).Click

[ô] Busca tags tipo td,
Set objCollection = IE.Document.getElementsByTagName([Ô]td[Ô])


[ô] Varre os tds do HTML procurando o numero do voo que esta na tabela
i = 0
While i < objCollection.Length

[ô] O valor [Ô]4230[Ô] eu passo por um Textbox pois tem varios voos na mesma tabela.
If objCollection(i).innertext = [Ô]4230[Ô] Then

------> aqui entraria o codigo

End If

i = i + 1

Wend

[ô] Fecha a instância do IE
IE.Quit

End Sub