problem in generating distinct random numbers

[rangeela]

i am using this below code to generate random numbers
g=cint(rnd*10)+1
msgbox g
but some time repeating random numbers occurs like when i click
command button msgbox giving 6 and when i click command button IInd time msgbox giving 4 and for IIIrd time it is once again
giving 6 this is what i want to prevent, how can i prevent this.

[plenderj]

Well just store the numbers in an array, then check through the array if the number is there or not.
Are you calling Randomize before you start calling Rnd() ?

[plenderj]

Here's a way of doing it.

Private Sub Form_Load()
    Dim myArray(0 To 99) As Boolean
    Dim i As Long, n As Long
    Randomize
    For i = 0 To 9
        n = CLng(100 * Rnd)
        If Not myArray(n) Then
            myArray(n) = True
        End If
    Next
    For i = 0 To 99
        If myArray(i) Then Debug.Print "'Unique' Random Number : " & i
    Next
End Sub

It'll also sort the numbers for you