Preciso criar um robô que busca certidões trabalhistas no site da receita federal. Problema ao tentar encontrar o ID de um objeto na pagina

Question

O código é o seguinte

Sub IE_INSS()

   Dim objIE As InternetExplorer

   

   Set objIE = New InternetExplorer

   objIE.Navigate "http://www010.dataprev.gov.br/cws/contexto/cnd/cnd.html "

   objIE.Visible = True

     

  'Loop unitl ie page is fully loaded

   Do Until objIE.ReadyState = READYSTATE_COMPLETE

   Loop

   

   'On Error Resume Next

   objIE.Document.getElementById("num").Value = "30967020/0001-05"

   objIE.Document.getElementById("Sub.Enter").Click

   

   Set objIE = Nothing

   

End Sub

Não consigo executá-lo e gostaria de saber porquê

VLWW