RandFunction

Module Module1
    Sub Main()
        Dim RandomNumbers As New List(Of Integer)
        Dim Randomizer As New Random()
        Dim AllNumbersFound As Boolean = False
        Dim NumberRnd As Integer = 0
        While Not AllNumbersFound
            RandomNumbers.Add(Randomizer.Next(1, 51))
            NumberRnd += 1
            AllNumbersFound = True
            For i = 1 To 50
                If Not RandomNumbers.Contains(i) Then
                    AllNumbersFound = False
                End If
            Next
        End While
        Console.WriteLine("The number of times a random number was generated before 1-50 were all generated: " & NumberRnd)
        Console.ReadLine()
    End Sub
End Module