listlessrandom1to50

Dim rand As New Random
Dim randomnumber As Integer
Dim numberchecklist(49) As Boolean
Dim allnumbersfound As Boolean
Dim numberrand As Integer
While Not allnumbersfound
    randomnumber = rand.Next(1, 51)
    If Not numberchecklist(randomnumber - 1) Then
        numberchecklist(randomnumber - 1) = True
    End If
    numberrand += 1
    allnumbersfound = True
    For i = 0 To 49
        If Not numberchecklist(i) Then
            allnumbersfound = False
        End If
    Next
End While
Console.WriteLine(numberrand)
Console.ReadLine()