Dim v As Variant
 
Private Sub Form_Load()
 'List1.AddItem 125 & vbTab & "Hank": List1.AddItem 15 & vbTab & "Danny": 
 ' List1.AddItem 19 & vbTab & "Robby"
 List1.AddItem 125: List1.AddItem 15: List1.AddItem 19
End Sub
 
Private Sub Label1_Click()
 Dim Liste() As Long 'bei kommazahlen long durch double ersetzen...
 Dim i As Integer
 
 ReDim Liste(List1.ListCount)
 
 For i = 0 To List1.ListCount - 1
  v = Split(List1.List(i))
  Liste(i + 1) = CLng(List1.List(i)) 'dann auch das clng durch ein cdbl ersetzen
 Next
 
 Quicksort 1, UBound(Liste), Liste
 
 List1.Clear
 For i = 1 To UBound(Liste)
 List1.AddItem Liste(i)
 Next
End Sub
 
Private Sub Quicksort(ByVal L As Long, ByVal R As Long, ByRef mA() As Long) _
  'hier das letzte long ggf auch anpassen
 Dim i As Integer
 Dim j As Integer
 Dim M As Long
 Dim Tmp As Long
 
 If R <= L Then Exit Sub
 
 i = L
 j = R
 M = mA((L + R) / 2)
 
 Do
  Do While mA(i) < M
   i = i + 1
  Loop
 Do While mA(j) > M
  j = j - 1
 Loop
  If i <= j Then
   Tmp = mA(i)
   mA(i) = mA(j)
   mA(j) = Tmp
   i = i + 1
   j = j - 1
  End If
 Loop Until i > j
 If L < j Then Quicksort L, j, mA()
 If i < R Then Quicksort i, R, mA()
End Sub