Fejl i Collection - hjælp

Et eller andet sted i nedenstående kode er der en fejl. Koden består af et class-module, og en form med en knap (Command1). Jeg vil lave en collection af 300 objekter fra mit classmodul, og så kunne kalde de forskellige objekter frem fra min collection. Men uanset hvordan jeg kalder objekterne fra min collection (vha. Item), får jeg fat i objekt nr. 300. Også selvom jeg kalder f.eks. nr. 17.

Her er koden (lidt forsimplet for overskuelighed) - kan nogen finde fejlen?


----- Class-Modul: (clsSaede)-----

Option Explicit

Private pRaekkeNr As Integer

Public Property Get RaekkeNr() As Integer
  RaekkeNr = pRaekkeNr
End Property

Public Property Let RaekkeNr(ByVal vRaekkeNr As Integer)
  pRaekkeNr = vRaekkeNr
End Property



----- Kode på form: (Form1) -----

Option Explicit

Private TBiograf As New Collection

Private Function GetItem(ByVal v_index As Variant) As clsSaede
  Set GetItem = TBiograf.Item(v_index)
End Function

Private Sub Command1_Click()
  Dim objTemp As New clsSaede
  MsgBox "Rækkenr: " & GetItem(17).RaekkeNr
  'Ovenstående siger Rækkenr=300 og ikke 17 som den burde
  Set objTemp = Nothing
End Sub

Private Sub Form_Initialize()
  Dim i As Integer
  For i = 1 To 300
    Dim objSaede As New clsSaede
    objSaede.RaekkeNr = i
    TBiograf.Add objSaede
  Next i
End Sub

Jeg er sikker på at det er et eller andet banalt jeg har overset, men hvad?

/Martin