Public Enum tGeschlecht
  tGeschlecht_Maennlich
  tGeschlecht_Weiblich
End Enum
 
Public Type tPerson
  Name As String
  Geburtstag As Date
  Geschlecht As tGeschlecht
End Type

Dim arPersonen(1 to 100) As tPersonen

Gruß
Dirk

--
?Get it right the first time