problem with edit box

[vijay44]

Code:

Browser("micclass:=browser").page("micclass:=page").WebEdit("name:=sourceMoreRows").Set 1------>acts as switch
var= Browser("micclass:=browser").page("micclass:=page").WebEdit("name:=sourceMoreRows").GetROProperty("value")
Browser("micclass:=browser").page("micclass:=page").WebButton("Name:=More Sources").Click

Set WbEdit = Description.Create()
WbEdit("micclass").Value = "WebEdit"
WbEdit("html id").Value = sourceName_0
Set AllWbEdit = Browser("micclass:=browser").Page("micclass:=Page").ChildObjects(WbEdit)
NumberOfEdits=AllWbButton.Count
msgbox(NumberOfEdits)
For i=0 to var
WBname = AllWbEdit(i).GetROProperty("html id")
msgbox(WBname)
If trim(WBname) = trim(sourceName_0) Then
AllWbEdit(i).Set "Test"

when i run this particular code i am getting general run error at

Code:

WBname = AllWbEdit(i).GetROProperty("html id")

Any help will be really appreciated.
Regards;
vijay