Problem with non-repeating random numbers

[ekeak]

Why is my application messing up? I'm trying to make non-repeating random numbers and then insert them into a listbox. Check my code out:

Dim RandomNumber As String
Dim x As Integer

        Do
Start:
            Randomize()

            RandomNumber = Int((52 * Rnd()) + 1) ' Random number 1 to 52
            Me.lstNumbers.Items.Add(RandomNumber)
        Loop Until RandomNumber <> Me.lstNumbers.Items.Item(x)