Variabel Eigenschaft einer Klasse zuweisen

Sub MenschenSort(byVal Mini As Long,byVal Maxi As Long)
Dim TempMensch As clMensch
Dim Mitte As Long
Dim Mittelwert As Variant
Dim i As Long, j As Long
If Mini >= Maxi Then
Exit Sub
End If
i = Mini
j = Maxi
Mitte = (Mini + Maxi) / 2
Mittelwert = clMensch(Mitte).Dienststelle
Do
Do While clMensch(i).Dienststelle < Mittelwert
i = i + 1
Loop
Do While clMensch(j).Dienststelle > Mittelwert
j = j - 1
Loop
If i <= j Then
Set TempMensch = clMensch(i)
Set clMensch(i) = clMensch(j)
Set clMensch(j) = TempMensch
i = i + 1
j = j - 1
End If
Loop Until i > j
clMensch(Mini).MenschenSortNachname Mini, j
clMensch(i).MenschenSortNachname i, Maxi
End Sub