I'm trying to programme a Bingo game to generate non repeating random numbers. Dream-in Code gave me the idea i've tried tweaking the code but without success. This is what i have so far.


Private Sub Button1_Click()

Dim intNumber As Integer
Dim arrNumber(0 To 90) As Integer
Dim i, x, y As Integer

TextBox1 = ("")
Start:
Randomize
intNumber = Int((90 * Rnd()) + 1)
If intNumber = arrNumber(y) Then
GoTo Start:
End If
arrNumber(x) = intNumber


TextBox1 = (arrNumber(i))

End Sub