Index ausserhalb des gültigen bereichs, aber warum

Sub kaputt und dann sagt er mir index ausserhalb des ungültigen bereiches...obwohl er die werte korrekt übergibt. ich hab auch mal beim debuggen geschaut also da ist n=1(könnte das der fehler sein!?) pl ist 2 und sp ist 8....
die werte übergebe ich aus modul1.go so an modul4.kaputt:
pl = ThisWorkbook.Sheets("Berechnung").Cells(zeile, 2)
sp = ThisWorkbook.Sheets("Berechnung").Cells(zeile, 1)
Call Modul4.kaputt(pl, sp)
so das is meine 

Sub kaputt:
Public aktuell_kaputt() As Integer
Public n As Integer

Sub kaputt(pl As Integer, sp As Integer)
n = n + 1
ReDim Preserve vntDaten(1 To 2, 1 To n)
aktuell_kaputt(1, n) = pl
aktuell_kaputt(2, n) = sp
UserForm1.ListBox3.ColumnCount = 2
UserForm1.ListBox3.Column() = aktuell_kaputt()
End Sub


habt ihr ne ahnung was ich falsch mach!?

danke schon mal im voraus für jeden tipp