Navegar em sub-páginas na web

Olá, estou criando uma macro para acessar um site e navegar nas páginas deste site, por meio de clicks em botões.

Já consegui acessar, o site, realizar o login, mas quando realizo o acesso na página seguinte, a macro deve clicar em um botão especifico. É neste momento que estou empacando.

Poderiam me ajudar? Segue abaixo o código.

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer

Sub Login()

Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
sURL = “https://esaj.tjce.jus.br/sajcas/login?service=https%3A%2F%2Fesaj.tjce.jus.br%2Fesaj%2Fj_spring_cas_security_check
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate sURL
oBrowser.Visible = True

Do
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.Document
HTMLDoc.all.usernameForm.Value = “xxxxxxx”
HTMLDoc.all.passwordForm.Value = “xxxxxx”

For Each oHTML_Element In HTMLDoc.getElementsByTagName(“input”)
If oHTML_Element.Type = “submit” Then oHTML_Element.Click: Exit For

Next

For Each oHTML_Element In HTMLDoc.getElementsByTagName(“input”)
If oHTML_Element.Type = “submit” Then oHTML_Element.Click: Exit For

Next
Err_Clear:

Resume Next
End Sub

Até ajudaria, porém não da pra acessar a página que esta com dificuldade sem o usuário e senha.
O seu código esta desnecessariamente complicado, da pra fazer a mesma coisa com isso:

Sub Login()
Set IE = New InternetExplorer

IE.Visible = True
IE.Navigate "https://esaj.tjce.jus.br/sajcas/login?service=https%3A%2F%2Fesaj.tjce.jus.br%2Fesaj%2Fj_spring_cas_security_check"

Do
Loop Until IE.readyState = READYSTATE_COMPLETE

IE.Document.all.usernameForm.Value = "xxxxxxx"
IE.Document.all.passwordForm.Value = "xxxxx"
IE.Document.all.pbEntrar(0).Click
End Sub