Te explicaré la manera en que lo hago yo:
Dim confirmado, valor
randomize
For I = 1 to 50
confirmado = Int((90 - 48 + 1) * Rnd + 48)
valor = valor & chr(confirmado)
next
Lo que hago es un for de las posiciones que quiero obtener, en este caso es de 50 posiciones, el 90 es la última posición ASCII que quieres que te coja que en este caso es la "Z", y el 48 es la primera que es el "0", entonces me cogerá desde el (0 - 9 / A - Z).
Mira el rango de caracteres que te interesan y ponlo en los valores de arriba, si lo que quieres es que los puedas introducir tu, pues creas dos variables y las sustituyes.
Saludos, espero que te sirva de ayuda.
