ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida

Prezados, bom dia!

Sou novo em programação e estou tentando acessar um site e preencher algumas informações, porém me deparei com esse erro. Consigo entrar no site, digitar login e senha, clicar para logar, porém preciso preencher outros campos, porém está dando esse erro.

Segue codigo:
Sub Comando2_Click()
Dim Nomeusuario As String
Dim Senhausuario As String
Dim Ambienteusuario As String
Dim Dc_URL As String
Dim objIE As New InternetExplorer ' Referencie "Microsoft internet controla"
Dim numrdo As String


'Criar um objeto internet explorer
Set objIE = New InternetExplorer

'Abre o IE
objIE.Visible = True

'Solicitando login e senha
Nomeusuario = "login"
Senhausuario = "senha"
Ambienteusuario = ""
numrdo = "6509" ' CAMPO QUE QUERO PREENCHER
Dc_URL = "SITE"

'Desajando visivel e abrindo o site
objIE.Visible = True
objIE.Navigate2 Dc_URL

' Loop para carregar a pagina toda
Do Until objIE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

' Entrando com login,senha e apertando para logar
objIE.Document.all.Item("chave").innerText = Nomeusuario
objIE.Document.all.Item("password").innerText = Senhausuario
objIE.Document.all.Item("ambiente").selectedIndex = "2"
objIE.Document.Forms.Item("form-login").submit
SendKeys "{ENTER}", True
objIE.Document.all.Item("rdo").innerText = numrdo ' ERRO APARECER QUANDO ADICIONO ESSA LINHA
objIE.Document.Forms.Item("form-control").submit

While objIE.Busy
DoEvents
Wend

Set objIE = Nothing 'Finalizando objeto

End Sub

tente

Sub Comando2_Click()
Dim Nomeusuario As String
Dim Senhausuario As String
Dim Ambienteusuario As String
Dim Dc_URL As String
Dim objIE As New InternetExplorer ' Referencie "Microsoft internet controla"
Dim numrdo As String


'Criar um objeto internet explorer
Set objIE = New InternetExplorer

'Abre o IE
objIE.Visible = True

'Solicitando login e senha
Nomeusuario = "login"
Senhausuario = "senha"
Ambienteusuario = ""
numrdo = "6509" ' CAMPO QUE QUERO PREENCHER
Dc_URL = "SITE"

'Desajando visivel e abrindo o site
objIE.Visible = True
objIE.Navigate2 Dc_URL

' Loop para carregar a pagina toda
Do Until objIE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

' Entrando com login,senha e apertando para logar
objIE.Document.all.Item("chave").innerText = Nomeusuario
objIE.Document.all.Item("password").innerText = Senhausuario
objIE.Document.all.Item("ambiente").selectedIndex = "2"
objIE.Document.Forms.Item("form-login").submit
SendKeys "{ENTER}", True

' Loop para carregar a pagina toda
Do Until objIE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

objIE.Document.all.Item("rdo").innerText = numrdo ' ERRO APARECER QUANDO ADICIONO ESSA LINHA
objIE.Document.Forms.Item("form-control").submit

While objIE.Busy
DoEvents
Wend

Set objIE = Nothing 'Finalizando objeto

End Sub

Bom dia Amigo.


Não funcionou, continua dando esse erro.