(Rnd Help)Randomize numbers

Private Sub Command1_Click()
 Dim a(11)
  Randomize
  rnd_values a, 10, 20, 5
  
  TXT = ""
  For I = 0 To 5 - 1
    TXT = TXT & a(I) & ","
  Next I
  
  MsgBox TXT
 End Sub
 Function rnd_values(ByRef VECTOR, MIN As Integer, MAX As Integer, ELEMENTOS As Integer)
 Dim I As Integer, J As Integer
   VECTOR(0) = CInt((MAX - MIN) * Rnd()) + MIN
   I = 1
   Do
     VECTOR(I) = CInt((MAX - MIN) * Rnd()) + MIN
     J = 0: FOUND = False
     Do
       FOUND = VECTOR(I) = VECTOR(J)
       J = J + 1
     Loop Until J >= I Or FOUND
     If Not (FOUND) Then I = I + 1
   Loop Until I = ELEMENTOS And Not (FOUND)
 End Function