Ciao.

Perchè nelle password casuali generate da questa funzione non vengono mai inserite le lettere?

Dove sbaglio?

codice:
function randomKey()
    dim numeri, lettere
    numeri = "1234567890!@$%&?*+#-_.:{[]}<>" 
    lettere = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Do Until len( cupon1 ) = 12
            Randomize 
            lettere = Int( ( 27 * Rnd ) + 1 )
            cupon1 = cupon1 & Mid( numeri, lettere, 1 ) 
        Loop
    randomKey = cupon1
end function