Problema con generazione password random

[Mizushi]

Originariamente inviato da Roby_72
La variabile "lettere" la ricrei ad ogni ciclo dentro al loop e vale tutt'altro rispetto all'assegnazione iniziale.

Roby

Ok, modifico così:

function randomKey()
    dim numeri, lettere
    numeri = "1234567890!@$%&?*+#-_.:{[]}<>" 
    lettere = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

        Do Until len( cupon1 ) = 12
            Randomize 
            cupon1 = cupon1 & Mid( numeri, lettere, 1 ) 
        Loop

    randomKey = cupon1
end function

ma ottengo:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'lettere'