Salu2 Daniel_PC
Mira puedes hacer lo siguiente usa el random y genera una numero entre 1 y el tamaño de una cadena de texto puesta por ti mismo porjemplo:
Dim strCad as String
Dim Pos as Integer
Dim Caracter as string
strCad = "123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Randomize Timer
Pos = Rnd * len(strcad)
caracter = mid(strcad, pos, 1)
bueno por alli va la cosa, luego te envio un ejemplo.
Un saludo zeekel ®
[KGT]