Probleme beim laden einer ListBox

Private Sub UserForm_Initialize()
Dim vWerArr         As Variant  ' Array der Zeilen-Nummern
Dim vWerArr2         As Variant  ' Array der Zeilen-Nummern
Dim vInhArr(6, 7) As Variant  ' Array der 6 Zeile an 6 Spalten
Dim vInhArr2(2, 7) As Variant  ' Array der 2 Zeile an 6 Spalten
Dim iZeile          As Integer  ' For/Next Index der Zeilen
Dim iSpalte         As Integer  ' For/Next Index der Spalten
Dim intZeile2 As Integer
Me.Caption = strVergleichsPara & " Summary"
intZeile2 = Zeileermitteln(1)
vWerArr = Array(intZeile2 - 6, intZeile2 - 5, intZeile2 - 4, _
intZeile2 - 3, intZeile2 - 2, intZeile2 - 1)
For iZeile = 0 To 5
For iSpalte = 0 To intRechenoptionCount + 3
If (iZeile = 2 Or iZeile = 3 Or iZeile = 4) And (iSpalte > 1) Then
vInhArr(iZeile, iSpalte) = Format(Cells(vWerArr(iZeile), iSpalte + 1), "0.00")
Else
vInhArr(iZeile, iSpalte) = Cells(vWerArr(iZeile), iSpalte + 1)
End If
Next iSpalte
Next iZeile
ListBox1.List = vInhArr
End Sub