pegar conteudo de tags usando vba

preciso pegar o conteudo das tags mais ou menos nessa sequencia DIV TABLE TBODY TR TD as TD tem que ser apartir da quarta apos isso fazer o mesmo com a segunda tr sucessivamente ate a 49. ja tentei um monte de comandos nao consegui.

segue o cod

Dim IE As Object Dim objElement As Object Dim objCollection As Object Dim i As Long Dim linha As String Dim cpf As String Dim menos1 As String Dim nomeempresa As String Dim nomesSocios As String Dim estados As String Dim cidades As String Dim teste As String Dim tb As String

Sub econodata()

Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .Navigate "https://plataforma.econodata.com.br/busca_avancada.jsf"

Do While .Busy Or _ .ReadyState <> 4 DoEvents Loop

nomeempresa = InputBox("Digite sua pesquisa:", "Nome da empresa, CNPJ ou palavra chave") .Document.all("busca_avancada:mainsFilters:nomeEmpresa").Value = nomeempresa

nomesSocios = InputBox("Digite sua pesquisa:", "nomesSocios") .Document.all("busca_avancada:mainsFilters:nomesSocios").Value = nomesSocios

MsgBox "PREENCHA OS CAMPOS ATIVIDADE-ESTADOS-CIDADES POR GENTILEZA", vbYesNo + vbExclamation

MsgBox "CONFIRME AQUI APOS O PREENCHIMENTO", vbYesNo + vbExclamation

.Document.all("busca_avancada:btnPA").Click

!ate aqui tudo ia bem Debug.Print .Document.getElementsByTagName("TBODY").Length End With

End Sub se precisarem de outras partes do codaqui e a primeira tr aberta tenho que pegar o conteudo apartir da quarta TD