Baixar comprovante de pagamento judicial pelo Banco do Brasil

Pessoal, boa noite, precisava muito de uma ajuda, para baixar o comprovante de pagamento pelo site do Banco do Brasil.
Eu até descobri um código para acessar via vba o site do facebook e preencher com nome de usuário e senha, o código funcionou perfeitamente, mas quando tentei pelo site do Banco do Brasil não funcionou;
Desta forma, poderiam me ajudar a acessar o site do Banco do Brasil através do Access e preencher o numero do ID automaticamente e salvar com o nome especifico?
o link do site é: bb.com.br/portalbb/djo/id/comprovante/consultaDepositoJudicial.bbx
O número do Id seria informado através de um campo do banco de dados em access, que seria inserido no site e logo após seria impresso o comprovante em pdf com o nome do beneficiario (também está em access).
Agradeço muito a quem poder me ajudar.

Pessoal, boa noite!

Eu testei o código abaixo, que funcionou com o Facebook, só apenas excluir os dados de usuario e senha, pois neste caso só informo o numero do id, contudo, não está preenchendo. (obs, só alterei o numero do id porque pertence a outra pessoa)

Public Function FNCLOGINBB()
Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer


Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
sURL = "https://www63.bb.com.br/portalbb/djo/id/comprovante/consultaDepositoJudicial,802,4647,4650,0,1.bbx?_ga=2.34492385.1722897102.1493387865-1360208279.1493387865"
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.formulario: numPreDeposito.Value = "08101000002895714"

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 Function

Pessoal, boa noite!

Eu já consegui preencher o numero da guia e clicar no botão continuar através dos seguintes códigos:

O problema é que ao clicar no botão continuar, abre uma outra pagina onde preciso selecionar a guia, depois clicar em visualizar e em seguida baixar o arquivo em PDF, mas não estou conseguindo avançar desde essa parte.


ith ieApp
.Visible = True
.Navigate "https://www63.bb.com.br/portalbb/djo/id/comprovante/consultaDepositoJudicial,802,4647,4650,0,1.bbx?_ga=2.34492385.1722897102.1493387865-1360208279.1493387865"

Do Until .ReadyState = 4
DoEvents
Loop

.Document.all.Item("formulario:numPreDeposito").Value = Me.Guia_Nº
.Document.all.Item("formulario:btnContinuar").Click

End With

Ou também:

With ieApp
.Visible = True
.Navigate "https://www63.bb.com.br/portalbb/djo/id/comprovante/consultaDepositoJudicial,802,4647,4650,0,1.bbx?_ga=2.34492385.1722897102.1493387865-1360208279.1493387865"

Do Until .ReadyState = 4
DoEvents
Loop

.Document.all.Item("formulario:numPreDeposito").Value = Me.Guia_Nº

End With

For Each Button In ieApp.Document.getElementsByTagName("input")
If Button.id = "formulario:btnContinuar" Then Button.Click: Exit For
Next