Generación de Números Alfanuméricos aleatorios

Estuvo bueno eso de "números alfanuméricos", o son numeros o es
alfanumerico, me recuerda al viejo y conocido refran "antes era
indeciso, ahora ya no se"

randomize
s=""
for i=1 to 8
do
pH+cint((122-48)*rnd())
loop until (p>H and p<W) or (p>e and p<) or (p>— and
p<2)
' de 48-57 0-9
' de 65-90 a-z
' de 97-122 A-Z
s=s & chr(p)
next
msgbox s

Alguien sabe o conoce alguna funcion de VBA para excel que me genere números
alfanuméricos aleatorios de 8 cifras?.
Muchas gracias,

Alejandro.