Formular-ListBox Multiselect auslesen

Sub Check_Combo1()
For i = 1 To 208
If ComboBox3.Value = Sheets("LongList").Cells(i, 5).Text Then
Me.ListBox2.AddItem Sheets("LongList").Cells(i, 2)
SpalteBox = 0
With Me.ListBox2
For Spalte = 2 To 2
SpalteBox = SpalteBox + 1
.List(.ListCount - 1, SpalteBox) = Sheets("LongList").Cells(i, 3)
Next
End With
With Me.ListBox2
For Spalte = 3 To 3
SpalteBox = SpalteBox + 1
.List(.ListCount - 1, SpalteBox) = Sheets("LongList").Cells(i, 5)
Next
End With
With Me.ListBox2
For Spalte = 4 To 4
SpalteBox = SpalteBox + 1
.List(.ListCount - 1, SpalteBox) = Sheets("LongList").Cells(i, 6)
Next
End With
With Me.ListBox2
For Spalte = 5 To 5
SpalteBox = SpalteBox + 1
.List(.ListCount - 1, SpalteBox) = Sheets("LongList").Cells(i, 10)
Next
End With
With Me.ListBox2
For Spalte = 6 To 6
SpalteBox = SpalteBox + 1
.List(.ListCount - 1, SpalteBox) = Sheets("LongList").Cells(i, 16)
Next
End With
With Me.ListBox2
For Spalte = 7 To 7
SpalteBox = SpalteBox + 1
.List(.ListCount - 1, SpalteBox) = Sheets("LongList").Cells(i, 9)
Next
End With
End If
Next
End Sub