Hej jag undrar på hur man lätt kan generera ett slumpat lösenord med både tecken och siffror blandat.

att slumpa siffror har jag lyckats bra med men att blanda dem med tecken. Det blev lite klurigare..

<code>
Function strPass(nr)
Randomize
Dim typ, i
For i = 1 To nr
typ = Int(Rnd()*3)
Select Case typ
Case 0
strPass = strPass & chr(Int(Rnd()*10)+48)
Case 1
strPass = strPass & chr(Int(Rnd()*25)+97)
Case Else
strPass = strPass & chr(Int(Rnd()*25)+65)
End Select
Next
End Function
</code>