Imports System
Module IrgendeinModul
    Dim gRand As New System.Random(My.Computer.Clock.TickCount)
 
    Public Sub WriteRandomIntegersToConsole()
        Dim anz_rnd As Integer = gRand.Next(5, 11) 'Zufallszahl im Bereich 5-10
        For i As Integer = 1 To anz_rnd
            Console.WriteLine(CStr(gRand.Next))
        Next i
    End Sub
 
    'Oder das?
 
    Public Function GetRandomNumbers(ByVal Anz As Integer) As Integer()
        If Anz < 1 Then Throw New ArgumentException
        Dim iarr(Anz - 1) As Integer
        For i As Integer = 0 To Anz - 1
            iarr(i) = gRand.Next
        Next i
        Return iarr
    End Function
 
End Module
 
'Wird aufgerufen als ....
Dim myRandomIntegers() As Integer = GetRandomNumbers(10)