Har denna kod:
<code>
Dim CArray(58)
x = 0
For i = 49 To 122
If i = 58 Then i = 65
If i = 91 Then i = 97

CArray(x) = Chr(i)
x = x + 1
Next
</code>

den ska lägga in alla siffror och bokstäver (stora och små) i en arrey är det tänkt, men scriptet verkar inte tänka så :(

få felet:
Runtime error 9:
Subscript out of range

på raden:
CArray(x) = Chr(i)

nån som vet hur jag ska lösa det? eller finns det nått bättre sätt att få in alla "alfabetiskatecken" och siffror i en arrey?

det ska slutligen bli ett lösenordsscript som slumpar fram ett lösenord så jag tänkte efter att jag fått arraryn att fungera bara slumpa ut ett visst antal tecken till löseordet från arrary, eller det kasnke finns nått bättre sätt för detta?

Tacksam för all hjälp!

haha *dum* jag hade ju satt för lågt antal när jag dimmade arrayn :)

inte så inne på det här med arrays än men jag fick det att funka:

<code>
Dim CArray(61)
x = 0
For i = 49 To 122
If i = 58 Then i = 65
If i = 91 Then i = 97

CArray(x) = Chr(i)
x = x + 1
Next
Randomize

For x = 1 To 6
strPass = strPass & CArray(Int(Rnd * UBound(CArray)))
Next
</code>

Nu innehåller strPass lösenordet :)