Dim Gegner(200) as integer' 1- 50 Runde1 51-100 Runde 2 101-150 Runde3 151-200 
' Runde4

Dim oZahl As New System.Random ' Später für die zufallszahl
Dim oList As New SortedList  ' Liste für runde 1
Dim oList1 As New SortedList ' Liste für runde 2
Dim oList2 As New SortedList ' Liste für runde 3
Dim oList3 As New SortedList ' Liste für runde 4

For i = 1 To AnzManschaften
            Do
                Randomize() ' damit ist es warscheinlicher das nicht zweimal 
                ' die gleiche zusammen setzung beim Losen entsteht
                b = AnzManschaften + 1
                Gegner1 = oZahl.Next(1, b) ' Zufällige zahl von 1 und Anzahl 
                ' der Manschaften !
                If Not oList.ContainsValue(Gegner1) Then ' wenn gegner noch 
                ' nicht gezogen dann
                    oList.Add(Gegner1, Gegner1) ' schreibe ihn in die Liste
                    Gegner(i) = Gegner1 ' und in das Array
 
                    Exit Do ' Nächster Gegner
                End If ' Fals nicht nochmal Losen
                MsgBox(Gegner(i))
            Loop
Next

        For i = 1 To AnzManschaften
            Do
                Randomize()
                b = AnzManschaften + 1
                Gegner1 = oZahl.Next(1, b) ' Zufällige zahl von 1 und Anzahl 
                ' der Manschaften !
                If Not oList1.ContainsValue(Gegner1) Then ' wenn gegner noch 
                ' nicht gezogen dann
                    If Not Gegner1 = Gegner(i) Then ' Darf Dieser Gegner nicht 
                    ' der Gegner von Letzter Runde sein !! dann
                        oList1.Add(Gegner1, Gegner1) ' schreibe ihn in die Liste
                        Gegner(i + 50) = Gegner1 ' und in das Array
 
                        Exit Do ' Nächster Gegner
                    End If
                End If ' Fals nicht nochmal Losen
                MsgBox(Gegner(i))
            Loop
        Next

        For i = 1 To AnzManschaften
            Do
                Randomize()
                b = AnzManschaften + 1
                Gegner1 = oZahl.Next(1, b) ' Zufällige zahl von 1 und Anzahl 
                ' der Manschaften !
                If Not oList2.ContainsValue(Gegner1) Then ' wenn gegner noch 
                ' nicht gezogen dann
                    If Not Gegner1 = Gegner(i) Then ' Darf Dieser Gegner nicht 
                    ' der Gegner von Runde 1 sein !! dann
                        If Not Gegner1 = Gegner(i + 50) Then ' Darf Dieser 
                        ' Gegner nicht der Gegner von Runde 2 sein !! dann
                            oList2.Add(Gegner1, Gegner1) ' schreibe ihn in die 
                            ' Liste
                            Gegner(i + 100) = Gegner1 ' und in das Array
 
                            Exit Do ' Nächster Gegner
                        End If
                    End If
                End If ' Fals nicht nochmal Losen
                MsgBox(Gegner(i))
            Loop
 
        Next