Botão Avançar com VBA

[Lucas Pires]

Ola prezados, 

Estou tentando desenvolver um programinha no excel, que entra em um site, faz login e entra automático. Boa parte já esta pronto, apenas falta o botão de avançar no login... No caso, é neste site "Banco Bradesco S/A (custodia.bradesco)". Não encontro qual é o cod html para colocar isso no VB. 

 

 

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://bc2.custodia.bradesco/calilogin/login.jsf"               
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.param1.Value = "xxxxxxxx"                                     'login
  HTMLDoc.all.param2.Value = Range("A78").Value                             'senha
  ????????????????????????????????????????                                  'botão "avançar"
  


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