Generates a random code for a function.

Public Function makerndpass (byval passlen, byval passtype)
Dim passfull, passnumber, passspecial, passcharnumber, passchar, pass, passuppercharnumber, passlowercharnumber, passupperchar, passlowerchar, II, jj
Passfull = "1234567890! @ # $ % ^ & * () []; ',./{}:? '~ -=/_ + | Abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
Passnumbers = "1234567890"
Passspecial = "! @ # $ % ^ & * () []; ',./{}:? '~ -=/_ + |"
Passcharnumber = "abcdefghijklmnopqrstuvwxyz1234567890abcdefghijklmnopqrstuvwxyz"
Passuppercharnumber = "1234567890 abcdefghijklmnopqrstuvwxyz"
Passlowercharnumber = "abcdefghijklmnopqrstuvwxyz1234567890"
Passchar = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
Passupperchar = "abcdefghijklmnopqrstuvwxyz"
Passlowerchar = "abcdefghijklmnopqrstuvwxyz"
Select case lcase (TRIM (passtype ))
Case "passfull"
Pass = passfull
Case "passnumber"
Pass = passnumber
Case "passspecial"
Pass = passspecial
Case "passcharnumber"
Pass = passcharnumber
Case "passchar"
Pass = passchar
Case "passupperchar"
Pass = passupperchar
Case "passlowerchar"
Pass = passlowerchar
Case "passuppercharnumber"
Pass = passuppercharnumber
Case "passlowercharnumber"
Pass = passlowercharnumber
Case else
Pass = passlowercharnumber
End select
Makerndpass = ""
For II = 1 to CINT (passlen)
Randomize
JJ = int (RND () * Len (PASS) + 1)
Makerndpass = CSTR (makerndpass) & Mid (Pass, JJ, 1)
Next
End Function