Private Sub Eintragen_Click()
For i = 1 To sp
Text1 = Text1 & " "
Next i
List.AddItem (Text1) & Chr(9) & (Text2)
End Sub

' 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