How to assign variable value into TextBox in TestCompelete by using VBScript

See more:

testing

Hi Friends

I am doing web application testing. I am using TestComplete tool, and VBScript for Scripting.
I want to read data into a variable and put this variable data into a my Application Text box.
Please take bellow example-

Sub Login
dim code
code= Inputbox("Enter Code")
Sys.Process("IEXPLORE", 2).Page("http://.../..../webpages/EmployeeHomePage.aspx?PortalType=???").Panel("realpage").Form("aspnetForm").Table(0).Cell(1, 0).Table(0).Cell(0, 1).Table(0).Cell(3, 0).Panel("ctl00_mainContentPlaceHolder_UpdatePanel2").Panel("ctl00_mainContentPlaceHolder_EmployeeRegInfo").Table(0).Cell(0, 1).Table(0).Cell(1, 0).Table(0).Cell(1, 0).Textbox("ctl00_mainContentPlaceHolder_udcUserSignIn_txtCompany").SetText("Code")
End Sub 

Please help me how can I do it.