SolvedGenerate Unique Random Values

Dim random As New Random()
Dim randomNumber As Integer = random.Next(10) ' Generates a random number between 0-9
Dim anotherRandomNumber As Integer = random.Next(1, 50) ' Generates a random number between 1-49

Dim usedNumbers As New List(Of Integer)
Dim randomSeed As New Random

Private Function GenerateUniqueNumber(ByVal minValue As Integer, ByVal maxValue As Integer) As Integer
    Dim current As Integer = randomSeed.Next(minValue, maxValue)
    While usedNumbers.Contains(current)
        current = randomSeed.Next(minValue, maxValue)
    End While
    usedNumbers.Add(current)
    Return current
End Function

Dim value As Integer = GenerateUniqueValue(1, 50) ' Generates a unique value between 1-49

usedNumbers.Clear()

Private Function GenerateUniqueNumber(ByVal minValue As Integer, ByVal maxValue As Integer) As Integer
    Dim current As Integer = randomSeed.Next(minValue, maxValue)
    For i As Integer = minValue To maxValue - 1
        If usedNumbers.Contains(i) AndAlso i = maxValue - 1 Then 
            usedNumbers.Clear()
        Else
            Exit For
        End If
    Next
    While usedNumbers.Contains(current)
        current = randomSeed.Next(minValue, maxValue)
    End While
    usedNumbers.Add(current)
    Return current
End Function