Public Sub X1()
    Dim col As New Collection
    Dim intI As Integer
    
    col.Add Array("Иванов", "Family"), "Family"
    col.Add Array("Петров", "Work"), "Work"
    
    For intI =  1  To col.Count
        Debug.Print col(intI)( 1 )
    Next intI
End Sub

Public Sub X2()
    Dim dic As New Scripting.Dictionary
    Dim arr As Variant
    Dim intI As Integer
    
    dic.Add "Family", "Иванов"
    dic.Add "Work", "Петров"
    
    arr = dic.Keys
    
    For intI =  0  To dic.Count -  1 
        Debug.Print arr(intI)
    Next intI
End Sub