Boa noite!

Estou com um problema para fazer um código para fazer uma consulta em um site. Alguém pode me ajudar???

Segue código:

Private Sub ConsultaOptante_Click()
   'Consulta optante simples
    With objIE
      .Visible = True
      objIE.Navigate2 "http://www8.receita.fazenda.gov.br/SimplesNacional/aplicacoes.aspx?id=21"
       Do Until objIE.ReadyState = READYSTATE_COMPLETE
          DoEvents
        Loop
       objIE.Document.ID("Cnpj").Value = 04367987000138
       objIE.Document.all.Cnpj.Click
     End With
End Sub 

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.