'Benötigt wird eine Listbox
Private Sub Form_Load()
 
Dim Anzahl%, i%, Z%, Temp%, SL%()
 
Anzahl = 100 'Zahl der Spieler
Randomize
ReDim SL(Anzahl - 1)
For i = 0 To Anzahl - 1
  SL(i) = i + 1
Next i
For i = 0 To Anzahl - 1
  Z = Int(Rnd * Anzahl)
  Temp = SL(i): SL(i) = SL(Z): SL(Z) = Temp
Next i
List1.Clear
For i = 0 To Anzahl - 2 Step 2
  List1.AddItem "Spieler " & SL(i) & " gegen Spieler " & SL(i + 1)
Next i
 
End Sub

Gruss,

Zardoz