Passing the parameters to a function ByRef..

Dim O1
Set O1 = Description.Create
O1= "Any Property goes here"


Call Fun1(O1)

Function Fun1(ByRef O1)

msgbox O1

End Function

Implementing the datadriven framework

RowCount1 = Datatable.GetSheet("CRM_Supplier").GetRowcount

For j=0 to RowCount1-1

Datatable.SetCurrentRow(j+1)