Private Function GibSechsZahlen(ByVal zahlvon As Integer, ByVal zahlbis As _
  Integer, ByVal wievielkreuze As Integer) As Collection
 
        ' Initialize den random-number generator.
 
        Randomize()
 
        ' Generiere zufällige Zahl zwischen 1 und 6.
 
        Dim zahl As Integer
        Dim i As Integer
        Dim cLottoZahlen As New Collection
        For i = 1 To wievielkreuze                  'Bestimmt die Anzahl der 
        ' Schleifendurchgänge also die Anzahl der rnd-Lottozahlen.
 
 
            Dim bbadinteger As Boolean = False
 
            zahl = GibLottoZahl(zahlbis, zahlvon)       'Returnwert der 
            ' Funktion wird Variable namens Zahl zugewiesen.
 
            'Debug.Print("LOTTOZAHL:" & zahl)
 
            If cLottoZahlen.Count > 0 Then              'Ist die Anzahl der 
            ' Element in der Collection größer als 0
                Dim j As Integer                            'dann Schleife - 
                ' von 1 bis zur Anzahl der Elemente
                For j = 1 To cLottoZahlen.Count             'ist das j'ste Item _
                  (-j- ist die Position des Elements in der Collection)
                    If cLottoZahlen.Item(j) = zahl Then     ' gleich der Zahl
                        bbadinteger = True                  ' dann setze 
                        ' bbadinteger auf True
                        Exit For
                    End If
                Next j
            End If
            If bbadinteger = True Then
                'zurueck zum Anfang, damit wir eine neue Zahl bekommen!
 
                'das heißt, die Schleife nochmal durchlaufen wird.
 
                'der letzte Schleifendurchgang wird nochmal gemacht weil es das 
                ' selbe Element
 
                'in der Collection schon vorhanden war.
                i = i - 1
            Else
                cLottoZahlen.Add(zahl)  'füge Zahl der Collection hinzu!
                'cLottoZahlen.Add(3, "3")
            End If
 
        Next i
 
        Return cLottoZahlen             ' Gib Rückgabewert als Collection.
 
    End Function

-----

-.-