Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
Dim Anzahl_N As Integer
        Anzahl_N = CInt(TextBox6.Text)
 
        GibSechsZahlen() = GibSechsZahlenXmalAusfuehren(Anzahl_N)
 
 
    Private Function GibSechsZahlenXmalAusfuehren(ByVal Anzahl_N As Integer)
 
 
        Dim i As Integer
        For i = 1 To Anzahl_N
	'Befehl zum Auführen der Funktion Gibsechszahlen!!!
        Next i
 
    End Function

-----

-.-