Public Function _Item( _
   ByVal NameorNum As Variant _
) As PartProgram