O método 'Busy' do objeto 'IWebBrownser2'

[murioku]

Bom dia pessoal!

Gostaria de sanar uma dúvida, estou tentando automatizar um procedimento aqui na empresa através da internet explorer, entretanto, quando eu executo a macro ela abre a internet explorer tranquilamente, mas, na hora de selecionar os campos e preenche-los, aparece o seguinte erro:

Erro em tempo de execução '-2147467259 (80004005)':
O método 'Busy' do objeto 'IWebBrownser2' falhou


Alguém poderia me explicar o porque do mesmo?

Código Utilizado:

Private Sub CommandButton1_Click()

Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
'abaixo coloquei o login do meu blog como exemplo...
.Navigate ("gpb.promaxcloud.com.br")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.All("Usuario").Focus
.Document.All("Usuario").Value = Cells(2, 1)
.Document.All("Senha").Focus
.Document.All("Senha").Value = Cells(2, 1)
.Document.All("BtnConfirm").Click
While .Busy Or .ReadyState <> 4: DoEvents: Wend
Debug.Print .LocationURL
End With

End Sub


OBS: O erro ocorreu exatamento na linha do código que está pintada de amarelo.

Agradeço desde já!

[webmaster]

Remova o Busy e use só o ReadyState. Deve funcionar.