Private mName As String
Private mWohnort As String
Private mAlter As Integer
 
Public Property Let Alter(vl As Integer)
    If vl < 10 Or vl > 90 Then
       Err.Raise 1002, , "Unzulässiges Alter"
    End If
    mAlter = vl
End Property
 
Public Property Get Alter() As Integer
    Alter = mAlter
End Property
 
Public Property Let Name(vl As String)
    If vl = "" Then
       Err.Raise 10001, , "Unzulässiger Name"
    End If
    mName = vl
End Property
 
Public Property Get Name() As String
    Name = mName
End Property
 
Public Property Let Wohnort(vl As String)
    If vl = "" Then
       Err.Raise 10002, , "Unzulässiger Wohnort"
    End If
    mWohnort = vl
End Property
 
Public Property Get Wohnort() As String
    Wohnort = mWohnort
End Property

Private mPersonen() As DatenKlasse
 
Public Sub SetPersonen(vl() As DatenKlasse)
    'Übergabe einer Referenz
    mPersonen = vl
End Sub
 
Public Function GetPersonen() As DatenKlasse()
    Personen = mPersonen
End Function
 
Public Property Get MittleresAlter() As Single
    Dim i%, sum%
 
    For i = 0 To UBound(mPersonen)
       sum = sum + mPersonen(i).Alter
    Next i
 
    MittleresAlter = sum / (UBound(mPersonen) + 1)
End Property

Public Sub Form_load()
 
   Dim PersonenArray(10) As DatenKlasse
   'Füllen der Personen-Daten im Array
   Dim i%
   For i = 0 To UBound(PersonenArray)
       Set PersonenArray(i) = New DatenKlasse
       PersonenArray(i).Alter = 20 + i
       PersonenArray(i).Name = Chr(i + 65)
       PersonenArray(i).Wohnort = Chr(i + 77)
   Next i
 
   'Anwendungsklasse: 
   Dim PersonenListe As New AnwendungsKlasse
 
   'Übergabe des Arrays aus Datenklassen-Instanzen   
   PersonenListe.SetPersonen PersonenArray
 
   'Nutzung der Anwendungsklasse
   Dim ma As Single
   ma = PersonenListe.MittleresAlter
 
End Sub