Custom Collection Class

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'README
'Use this as a Template, and search-replace Person / People. I wish it were as easy as dropping the
'code into a new Class module, but you’ll need to do this little workaround instead. You see, we
'need a few Attribute modifiers to alter the behaviour of two important properties, and it’s not
'possible to edit Attribute modifiers from VBA’s User Interface. If you didn’t attach the Attribute
'modifiers, the Item property would not be the default property, and you would lose the ability to
'For Each / Next on the Collection. So, using Notepad, save the following code as clsPeople.cls, then
'from VBA > File > Import File, and import clsPeople.cls.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
End
Attribute VB_Name = "clsPeople"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Compare Database
Option Explicit
'**************************************************************************************************
'DATE
'
'
'PURPOSE
'
'
'TICKETS
'Date       Ticket          Description
'
'**************************************************************************************************

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Public Properties
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Private Properties
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private colPeople As Collection

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Public Constants
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Private Constants
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Public Enumerations
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Private Enumerations
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Events
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Property Getters/Setters
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Initialization/Termination Event Handlers
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Class_Initialize()
    Set colPeople = New Collection
End Sub

Private Sub Class_Terminate()
    Set colPeople = Nothing
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Custom Event Handlers
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Custom collection methods
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get NewEnum() As IUnknown
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"
    Set NewEnum = colPeople.[_NewEnum]
End Property

Public Sub Add(obj As clsPerson)
'**************************************************************************************************
'DATE
'
'
'PURPOSE
'Adds a new clsPerson object to the collection
'
'PARAMETERS
'   obj     clsPerson object to add to the collection
'
'RETURNS
'   None
'
'TICKETS
'Date       Ticket          Description
'
'**************************************************************************************************
    colPeople.Add obj
End Sub

Public Sub Remove(Index As Variant)
'**************************************************************************************************
'DATE
'
'
'PURPOSE
'Removes the given object at the given index from the collection
'
'PARAMETERS
'   Index   Index of the object to remove from the collection
'
'RETURNS
'   None
'
'TICKETS
'Date       Ticket          Description
'
'**************************************************************************************************
    colPeople.Remove Index
End Sub

Public Property Get Item(Index As Variant) As clsPerson
Attribute Item.VB_UserMemId = 0
    Set Item = colPeople.Item(Index)
End Property

Public Property Get Count() As Long
    Count = colPeople.Count
End Property

Public Sub Clear()
'**************************************************************************************************
'DATE
'
'
'PURPOSE
'Clears the entire collection with a new collection
'
'PARAMETERS
'   None
'
'RETURNS
'   None
'
'TICKETS
'Date       Ticket          Description
'
'**************************************************************************************************
    Set colPeople = New Collection
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Public Methods
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'<model>'Public Sub TestPublicMethod( _
'<model>'    <VariableName1> As <VariableDataType1>, _
'<model>'    <VariableNameN> As <VariableDataTypeN> _
'<model>')
'<model>''**************************************************************************************************
'<model>''DATE
'<model>''<Date>
'<model>''
'<model>''PURPOSE
'<model>''<Purpose>
'<model>''
'<model>''PARAMETERS
'<model>''   <ParameterName1>    <ParameterDescription1>
'<model>''
'<model>''RETURNS
'<model>''   <Returns>
'<model>''
'<model>''TICKETS
'<model>''Date       Ticket          Description
'<model>''<Date>
'<model>''**************************************************************************************************
'<model>'
'<model>'End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Private Methods
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'<model>'Private Sub TestPrivateMethod( _
'<model>'    <VariableName1> As <VariableDataType1>, _
'<model>'    <VariableNameN> As <VariableDataTypeN> _
'<model>')
'<model>''**************************************************************************************************
'<model>''DATE
'<model>''<Date>
'<model>''
'<model>''PURPOSE
'<model>''<Purpose>
'<model>''
'<model>''PARAMETERS
'<model>''   <ParameterName1>    <ParameterDescription1>
'<model>'
'<model>''RETURNS
'<model>''   <Returns>
'<model>''
'<model>''TICKETS
'<model>''Date       Ticket          Description
'<model>''<Date>
'<model>''**************************************************************************************************
'<model>'
'<model>'End Sub