Function Makepassword (byval maxlen)
DIM STRNEWPASS DIM WHATSNEXT, UPPER, LOWER, INTCOUNTER RANDOMIZE
For intcounter = 1 to maxlen whatsnext = INT ((1 - 0 2) * RND 0) if whatsnext = 0 THEN 'CHARACTER UPPER = 90 LOWER = 65 else if whatsnext = 1 THEN UPER = 122 Lower = 97 else Upper = 57 Lower = 48 End IFEND IF STRNEWPASS = STRNEWPASS & CHR (INT ((Upper - Lower 1) * RND LOWER) Next Makepassword = strnewpass end function
