Sacar caracteres aleatorios visual basic 6

Una funcioncita bastante simple que devuelve caracteres aleatorios de una cadena.

view plainprint?

1. 'cadena de la que tomamos los caracteres  
2. Private Const c_caracteres = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890abcdefghijklmnñopqrstuvwxyz"  
3.   
4. 'parámetros opcionales  
5. 'cuantos caracteres necesitas y la ubicación de la cadena de donde sacarlos  
6. Private Function dame_text_rnd(optional cuantos As Integer=1, optional cadena as string=c_caracteres) As String  
7.    Dim i As Integer  
8.    Dim longitud as integer  
9.    longitud=Len(cadena)   
10.    Randomize  
11.    For i = 1 To cuantos  
12.        dame_text_rnd = dame_text_rnd & Mid(cadena, Int((longitud * Rnd) + 1), 1)  
13.    Next i  
14. End Function  

'cadena de la que tomamos los caracteres
Private Const c_caracteres = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890abcdefghijklmnñopqrstuvwxyz"

'parámetros opcionales
'cuantos caracteres necesitas y la ubicación de la cadena de donde sacarlos
Private Function dame_text_rnd(optional cuantos As Integer=1, optional cadena as string=c_caracteres) As String
   Dim i As Integer
   Dim longitud as integer
   longitud=Len(cadena) 
   Randomize
   For i = 1 To cuantos
       dame_text_rnd = dame_text_rnd & Mid(cadena, Int((longitud * Rnd) + 1), 1)
   Next i
End Function