aJobReq.StaffJobReqList.Add S_NI_Number(Val(lstStaff.ItemData(lstStaff.ListIndex))), dExpiry, bPref, "Add"  
 'Added to the list, NI_No, expiry date, is pref, add or del.


The class modules look like:

'TStaffJobReqList


'local variable to hold collection
Private mCol As Collection


'FUNCTION CALLED FROM ABOVE CODE
Public Function Add(NI_Number As String, Expiry As Date, IsPref As Boolean, Status As String) As TStaffJobReq
    'create a new object
    Dim objNewMember As TStaffJobReq
    Set objNewMember = New TStaffJobReq


    'set the properties passed into the method
    objNewMember.NI_Number = NI_Number
    objNewMember.Expiry = Expiry
    objNewMember.IsPref = IsPref
    objNewMember.Status = Status
    
    mCol.Add objNewMember, "K" & NI_Number
    


    'return the object created
    Set Add = objNewMember
    Set objNewMember = Nothing


End Function

Public Property Get Item(vntIndexKey As Variant) As TStaffJobReq
    'used when referencing an element in the collection
    'vntIndexKey contains either the Index or Key to the collection,
    'this is why it is declared as a Variant
    'Syntax: Set foo = x.Item(xyz) or Set foo = x.Item(5)
  On Error GoTo NotFound
  Set Item = mCol(vntIndexKey)
  Exit Function
NotFound:
  Set Item = Nothing
End Property



Public Property Get Count() As Long
    'used when retrieving the number of elements in the
    'collection. Syntax: Debug.Print x.Count
    Count = mCol.Count
End Property


Public Sub Remove(vntIndexKey As Variant)
    'used when removing an element from the collection
    'vntIndexKey contains either the Index or Key, which is why
    'it is declared as a Variant
    'Syntax: x.Remove(xyz)


    mCol.Remove vntIndexKey
End Sub


Private Sub Class_Initialize()
    'creates the collection when this class is created
    Set mCol = New Collection
End Sub


Private Sub Class_Terminate()
    'destroys collection when this class is terminated
    Set mCol = Nothing
End Sub


Public Function StaffJobReqs() As Collection
   Set StaffJobReqs = mCol
End Function






'Class: TStaffJobReq

'local variable(s) to hold property value(s)
Private mvarNI_Number As String 'local copy
Private mvarExpiry As Date 'local copy
Private mvarIsPref As Boolean 'local copy
Private mvarStatus As String 'local copy

Public Property Let Status(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.IsPreference = 5
    mvarStatus = vData
End Property


Public Property Get Status() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.IsPreference
    Status = mvarStatus
End Property


Public Property Let IsPref(ByVal vData As Boolean)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.IsPreference = 5
    mvarIsPref = vData
End Property


Public Property Get IsPref() As Boolean
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.IsPreference
    IsPreference = mvarIsPref
End Property



Public Property Let Expiry(ByVal vData As Date)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.ExpiryDate = 5
    mvarExpiry = vData
End Property


Public Property Get Expiry() As Date
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.ExpiryDate
    ExpiryDate = mvarExpiry
End Property


Public Property Let NI_Number(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.NI_Number = 5
    mvarNI_Number = vData
End Property


Public Property Get NI_Number() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.NI_Number
    NI_Number = mvarNI_Number
End Property