For bn = 0 To ListBesten3.ListCount - 1
 If LblBGTemp.Caption > ListBesten3.List(bn) Then ListBesten3.List(bn) = _
   LblBGTemp.Caption & vbTab & LblInfo(0).Caption
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

List1.AddItem ("013" & vbTab & "Otto")
List1.AddItem ("067" & vbTab & "Franz")
List1.AddItem ("004" & vbTab & "Gerd")
List1.AddItem ("035" & vbTab & "Peter")
List1.AddItem ("117" & vbTab & "Ina")
List1.AddItem ("094" & vbTab & "Hubert")

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

Public Sub SortDemo()
 
  'Hilfsvariablen
  Dim i As Integer, k As Integer, r As Integer, num As String
 
  'Referenz auf die Listbox besorgen (optional)
  Dim lbo As ListBox
  Set lbo = List1
 
  'gleichabständige Schrift einstellen
  lbo.Font.Name = "Courier"
 
  'Testeinträge in die Liste schreiben / zufällige Punktwerte
  Randomize
  For i = 0 To 2000
     r = CInt(Rnd * 10000)
     num = CStr(r)
     While Len(num) < 5
       num = " " & num
     Wend
     lbo.AddItem (num & " " & vbTab & "bla bla bla")
  Next i
 
  'Aufbau des Hilfsarray für das Sortieren
  Dim dbl() As Double
  ReDim dbl(1 To lbo.ListCount)
  Dim pos As Integer
  For i = 0 To lbo.ListCount - 1
     pos = InStr(lbo.List(i), vbTab)
     dbl(i + 1) = Mid(lbo.List(i), 1, pos - 1) + i / 10000   
  Next i
 
  'simple Sortier-Doppelschleife 
  Dim inter As Double
  For i = 1 To UBound(dbl) - 1
     For k = i + 1 To UBound(dbl)
        If dbl(i) > dbl(k) Then
           inter = dbl(i)
           dbl(i) = dbl(k)
           dbl(k) = inter
        End If
     Next k
  Next i
 
  'Aufbau eines sortierten Stringarray 
  'aus der Listbox-Liste und dem Hilfsarray
  Dim str() As String
  ReDim str(0 To lbo.ListCount - 1)
  For i = 0 To UBound(str)
      r = CInt((dbl(i + 1) - CInt(dbl(i + 1))) * 10000)
      str(i) = lbo.List(r)
  Next i
 
  'Übertragen des String-Array in die geleerte Listbox
  lbo.Clear
  For i = 0 To UBound(str)
    lbo.AddItem (str(i))
  Next i
 
End Sub

Dim v as Variant
Dim lbgt as String
 
Private Sub LblBGTemp_Change()
 lbgt = Trim(LblBGTemp.Caption)
End Sub
 
Private Sub LblBildMenü_Click(Index As Integer)
 if Index = 1 Then
  If ListBesten3(smb).ListCount = 5 Then
   v = Split(ListBesten3(smb).List(0), vbTab)
   If lbgt > v(0) Then ListBesten3(smb).List(0) = LblBGTemp.Caption & vbTab _
     & LblInfo(0).Caption
  End If
 End If
End Sub

Public Function lbgt(Value As Variant, Optional Default As Integer) As Integer
 On Local Error Resume Next
  lbgt = CInt(Value)
  If Err.Number Then
    Err.Clear
    lbgt = Default
  End If
End Function

Private Sub LblBGTemp_Change()
 lbgt = Trim(LblBGTemp.Caption)
End Sub