VBA, tilføje en type til en collection

Der kommer følgende fejl:

'Invalid use of new keyword'

Koden lægger i et modul. Kan det være årsagen

Det er invalid at bruge new på noget man ikke kan bruge new på - her selvdefinerede typer
Og selvdefinerede typer kan ikke tilføjes en collection. Dette eneste rigtige i det du linker til er indholdet i dynamans link til microsoft.com
Opjekter kan tilføjes en collection.

Lav et klassemodul med blot følgende to linier - navngiv Person
Public id As Long
Public name As String

Konkluder på forskellen mellem
'1.
Sub testCollection()
Dim col As New Collection
Dim p As New Person
Dim t

For t = 1 To 5
  p.id = t
  p.name = CStr(t) & "Name"

  col.Add p
Next

For t = 1 To col.count
    Debug.Print t, col.Item(t).id, col.Item(t).name
Next

End Sub


'2.
Sub testCollection()
Dim col As New Collection
Dim p As Person
Dim t

For t = 1 To 5
  Set p = New Person
  p.id = t
  p.name = CStr(t) & "Name"

  col.Add p
Next

For t = 1 To col.count
    Debug.Print t, col.Item(t).id, col.Item(t).name
Next

End Sub

Tak!
Version 2 virker fint.
Min konklusion:
Version 1 er blot en collection med eet object, der er tilføjet til collectionen 5 gange. Objectet har samme værdi på alle pladser i collectionen.

Sender du et svar?

Her er så et svarmærket indlæg. Til visse sammenhænge er dictionary mere oplagt -  se
http://excelicious.wordpress.com/2010/01/07/dictionary-vs-collection/
(kræver referencer sat til Microsoft Scriting Runtime)

Tak for dit råd om dictionary.
Det ser meget brugbart ud.
Har også en clear metode. Den manglede jeg i dag.