ListBox füllen in Abhängigkeit einer ComboBox

Private Sub cboBeispiel_Change()
Dim iRow As Integer
Dim i As Integer
lstGesamt.Clear
lstGesamt.ColumnCount = 2
iRow = WorksheetFunction.Match(cboBeispiel.Value, Columns(1), 0)
ReDim arr(WorksheetFunction.CountIf(Columns(1), cboBeispiel) - 1, 2)
i = 0
Do While Cells(iRow, 1).Value = cboBeispiel.Value
arr(i, 0) = Cells(iRow, 2)
arr(i, 1) = Cells(iRow, 3)
arr(i, 3) = Cells(iRow, 5)
arr(i, 4) = Cells(iRow, 8)
i = i + 1
iRow = iRow + 1
Loop
lstGesamt.List = arr
lstGesamt.ListIndex = 0
End Sub

Hat jemand eine Idee wonwegen "Index außerhalb des gültigen Bereichs"?
Für die Hilfe wäre ich sehr dankbar.
Grüße