Public Function Add(Pers As Person, Optional key As Long = 0) As Long
 
    Dim x As String, xx As String
    Dim newItem As PersonListItem
    Dim Item As New PersonListItem
    Dim n As Long
    Dim PersExisting As Person
    Dim Index As Integer
 
    Set newItem = New PersonListItem
 
    newItem.Set_Person Pers
 
 
    If (key > 0) Then                           'if key already exists then 
    ' take it
        newItem.Set_Key (key)
    Else
        newItem.Set_Key (lastKey + 1)           'edit new key
        lastKey = lastKey + 1
    End If
 
    If List.Count = 0 Then
       List.Add newItem
       Add = 1
       Exit Function
    End If
 
    x = Pers.Get_txtName & Pers.Get_txtVName
    For Index = 1 To List.Count
 
       Set Item = List.Item(Index)
       Set PersExisting = Item.Get_Person()
 
       xx = PersExisting.Get_txtName() & PersExisting.Get_txtVName()
       n = n + 1
       Add = n
       If x <= xx Then
           List.Add newItem, n
           Add = n
           Exit Function
       End If
    Next
 
    List.Add newItem
 
End Function