Private Function AddSort(oNeuHinzu As Object, oEnum As Collection, ByVal sKey _
  As String) As Long
    Dim x As String, xx As String
    Dim o As Variant
    Dim n As Long
 
    If oEnum.Count = 0 Then
       oEnum.Add oNeuHinzu
       AddSort = 1
       Exit Function
    End If
 
    x = oNeuHinzu.NachName & oNeuHinzu.Vorname
    For Each o In oEnum
       xx = o.NachName & o.Vorname
       n = n + 1
       AddSort = n
       If x <= xx Then
           oEnum.Add oNeuHinzu, sKey, n
           AddSort = n
           Exit Function
       End If
    Next
 
    oEnum.Add oNeuHinzu, sKey
 
End Function