Option Explicit
 
Private Player$(), Score&(), Anzahl&
 
Private Sub Form_Load()
 
Anzahl = 5 ' Zahl der Spieler
ReDim Player(1 To Anzahl), Score(1 To Anzahl)
 
' Namen und Punkte der Spieler eintragen:
Player(1) = "Ingo"
Score(1) = 9000
 
Player(2) = "Ute"
Score(2) = 8500
 
Player(3) = "Ralf"
Score(3) = 500
 
Player(4) = "Andrea"
Score(4) = 12000
 
Player(5) = "Oliver"
Score(5) = 4000
 
' Nach Punkten sortieren und eintragen
Call Highscore_eintragen
 
End Sub
 
Private Sub Highscore_eintragen()
 
Dim TmpName$, TmpScore&, i&, j&
 
For i = 1 To Anzahl - 1
  For j = i + 1 To Anzahl
    If Score(i) < Score(j) Then
      TmpName = Player(i): Player(i) = Player(j): Player(j) = TmpName
      TmpScore = Score(i): Score(i) = Score(j): Score(j) = TmpScore
    End If
  Next j
Next i
 
With List1
  .Visible = False
  .Clear
  .Font = "Courier New"
  .FontSize = 10
  For i = 1 To Anzahl
    .AddItem Left$(Player(i) & Space$(15), 15) & Space$(10 - Len(CStr(Score( _
      i)))) & CStr(Score(i))
  Next i
  .ListIndex = -1
  .Visible = True
End With
 
End Sub

Gruss,

Zardoz