Problems with vba

Hello I try to send object property as argument to a function in vba this function must sort objects by "LAYER" or "COLOR" but i don't know how to use this argument in the function
Public Function tri_par ( Aray , value) For i = 1 To UBound (aray) .............. .......... objprop = objent.value (where value is equal to "LAYER" or "COLOR") doesn't seems to be right
if it isn't possible, Is there a command that accept dxf code as argument ? That irritates me, if I succeeded not, I go back in Lisp
Thank you to help me.

Can this example help?
Sub MakeRed() Set R = ThisDrawing.Layers.Add("Red layer") R.Color = acRed Dim element as AcadEntity For Each element in ThisDrawing.ModelSpace If element.Color = acRed Then element.Color = acByLayer element.Layer = "Red Layer" end if Next Element End Sub
kr Ben
  Quoted Text Here  
?