Private sName() As String 'Spielername
Private Score() As Long ' Score
Private Entries As Integer 'Anzahl der Einträge in Liste

'Wenn zwei Spieler in der Liste sind
Entries = 2
Redim sName(Entries)
Redim Score(Entries)
 
sName(1) = "Max"
Score(1) = 100
sName(2) = "Neo"
Score(2) = 250
...

Open App.Path & "\Highscores.dat" For Output As #1
Dim n As Integer
Print #1, Entries
For n = 1 To Entries
Print #1, sName(n)
Print #1, Score(n)
Next n
Close #1

Open App.Path & "\Highscores.dat" For Input As #1
Dim n As Integer
Input #1, Entries
Redim sName(Entries)
Redim Score(Entries)
For n = 1 To Entries
Input #1, sName(n)
Input #1, Score(n)
Next n
Close #1

Dim n As Integer
For n = 1 To Entries
List1.AddItem "Platz " & CStr(n) & ": " & sName(n) & " mit " & CStr(Score(n)) & _
  " Punkten !"
Next n