Private Function GibNZiehungen(ByVal anzahl_n As Integer, ByVal zahlvon As _
      Integer, ByVal zahlbis As Integer, ByVal wievielkreuze As Integer) As _
      Collection
        Dim cEinzelziehung As New Collection
 
        Dim i As Integer
        For i = 1 To anzahl_n
            cEinzelziehung = Einzelziehung(zahlvon, zahlbis, wievielkreuze)
 
        Next i
 
    End Function
 
End Class

-----

-.-