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 upper=122 lower=97 else upper = 57 lower = 48 end if End If strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower)) Next makePassword = strNewPass end function

|