Dim cellobjs, objitem
Set cellobjs = description.Create
cellobjs("micclass").Value = "WebEdit"
cellobjs("disabled").Value = 0
Set objitem=Browser("").Page("").ChildObjects(cellobjs)
EXval1=objitem(0).getRoProperty("value")
ReDim EXval(objitem.count-1)
For j= 1 to objitem.count-1
EXval1=EXval1&objitem(j).getRoProperty("value")
Next