problem in generating distinct random numbers

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.

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() ?

Here's a way of doing it.

VB Code:

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 :)