Enter data into webpage

[RohiniSath]

Hi,

I am getting "Automation Error, The object has disconnected from clients" error while i am trying to enter the data in webpage.

Here is the code,

Sub GetIE()


Dim objIE As InternetExplorer
Dim OrgBox As HTMLInputElement
Set objIE = New InternetExplorer
objIE.Visible = True



objIE.navigate "Mywebsite"

Do While objIE.readyState = 4: DoEvents: Loop
Do Until objIE.readyState = 4: DoEvents: Loop


Set OrgBox = objIE.Document.getElementById("txtairno")
OrgBox.Value = "4587"


End Sub

Can someone help me in resolving it?