ListBox Probleme

Private Sub ListBox5_Click()
Dim rngFind As Range
Dim sSearch As String
Dim i As Integer
ListBox1.Clear
TextBox2.Value = ListBox5.Value
'sSearch = TextBox2.Value
Set rngFind = Columns("B:B").Find(TextBox2.Value, lookat:=xlWhole)
For i = 13 To 96 Step 6
With Worksheets("Chord1")

ListBox1.AddItem .Cells(ListBox5.ListIndex + 2, i)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(ListBox5.ListIndex + 2, i + 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(ListBox5.ListIndex + 2, i + 2)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(ListBox5.ListIndex + 2, i + 3)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(ListBox5.ListIndex + 2, i + 4)
ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(ListBox5.ListIndex + 2, i + 5)
End With
Next i

Mein Problem, egal was ich in der TextBox2 schreibe wird mir immer nur die erste

Zeile dargestellt, (hier untereinander im ListBox).

Ich Weiß das der Fehler hier sein muss:
ListBox1.AddItem .Cells(ListBox5.ListIndex + 2, i)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(ListBox5.ListIndex + 2, i + 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(ListBox5.ListIndex + 2, i + 2)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(ListBox5.ListIndex + 2, i + 3)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(ListBox5.ListIndex + 2, i + 4)
ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(ListBox5.ListIndex + 2, i + 5)

nach viele Versuche (gescheitert) frage ich nun euch, ich komme leider nicht dahinter.

Vielen Dank in Voraus

Antonio