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