I've made a class module and I'm tring to add my objects to a collection, but I can't seem to get the code right. I've set up my class module like below, and in my sub I want to loop through a list of order numbers and add one of my class module records to my collection. The problem is that only one record gets stored, multiple times

Thanks for any hel
Ro

'Class Module "Record" Cod
Public OrderNumber as lon

Function OrderDate() As Dat
OrderDate = FetchOrderDate(OrderNumber
End Functio

Function DeliveryDate() As Dat
DeliveryDate = FetchDeliveryDate(OrderNumber
End Functio
'End of Class Module "Record" Cod

'Module Cod
Sub StoreRecord
Dim MyCollection as New Collectio
Dim MyRecord as Recor
For Each Cell in Selectio
MyRecord.OrdernNmber = Cell.Valu
MyCollection.Add MyRecor
Nex

'now I test whether it worked by getting it to tell me the order numbers store
For Each Record in MyCollectio
MsgBox Record.OrderNumbe
Nex

End Sub