Public ID_Kriterium as long ' als eindeutige Nummer
Public strKriterium as string ' hier steht dann z.B. "Brünett"
public bolMerkmal1 as boolean
public bolMerkmal2 as boolean
public lngEntscheidungslevel as long

dim colHaarfarben as collection
.
.
set colHaarfarben = new collection

set cls_Kriterium = new collection
with clsKriterium
   .ID_Kriterium = 4711
   .strKriterium = "blond"
   .bolMerkmal1 = True
   .lngEntscheidungslevel = 5
end with

colHaarfarben.add cls_Kriterium, "ID:4711"

for each cls_Kriterium in colHaarfarbe
   Debug.print cls_Kriterium.strKriterium
next