Listbox Sortierung - Typenkonflikt

Function BubbleSortUp(lngLBound As Long, lngUBound As Long, bytSpalte As Byte)
Dim j As Long
Dim i As Long
Dim k As Long
Dim vTemp As Variant
For j = lngUBound - 1 To lngLBound Step -1
' Alle links davon liegenden Zeichen auf richtige Sortierung
' der jeweiligen Nachfolger überprüfen:
For i = lngLBound To j
' Ist das aktuelle Element seinem Nachfolger gegenüber korrekt sortiert?
If (ListBox1.List(i, bytSpalte)) > (ListBox1.List(i + 1, bytSpalte)) Then
' Element und seinen Nachfolger vertauschen.
For k = 0 To 6
vTemp = ListBox1.List(i, k)
**********  ListBox1.List(i, k) = ListBox1.List(i + 1, k)
ListBox1.List(i + 1, k) = vTemp
Next k
End If
Next i
Next j
End Function