0 / 60 seg.

ObjProp = FindPropertyObject( ObjVar, PropName As String )