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) = Text1.Text
Score(1) = Val(Text2.Text)
 
Player(2) = Text1.Text
Score(2) = Val(Text2.Text)
 
Player(3) = Text1.Text
Score(3) = Val(Text2.Text)
 
Player(4) = Text1.Text
Score(4) = Val(Text2.Text)
 
Player(5) = Text1.Text
Score(5) = Val(Text2.Text)
 
' Nach Punkten sortieren und eintragen
Call Eintragen_Click
 
End Sub
 
Private Sub Eintragen_Click()
 
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 List
  .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