Public Function szRandomPwd() As String
Dim nResult As Integer
Dim nCounter As Integer
Dim szChr As String * 1
Dim szMakePwd As String
Randomize
nResult = Int((8 - 6 + 1) * Rnd + 6) ' a password between 6 and 8 characters long
nCounter = 0
Do While nCounter <= nResult
If Int((0 - -1 + 1) * Rnd + -1) Then ' random true or false
'a letter please
If Int((0 - -1 + 1) * Rnd + -1) Then ' random true or false
'Upper Case please
szChr = Chr$(Int((90 - 65 + 1) * Rnd + 65))
Else
'Lower Case Please
szChr = Chr$(Int((122 - 97 + 1) * Rnd + 97))
End If
Else
'a number please (excluding zero)
szChr = Chr$(Int((57 - 49 + 1) * Rnd + 49))
End If
'exclude zero, one, O, i , l , S etc
'These characters are eassily confused with other characters
Select Case szChr
Case "0", "1", "o", "O", "i", "I", "l", "S", "5", "2", "Z", "7"
'don't use
Case Else
szMakePwd = szMakePwd & szChr
nCounter = nCounter + 1
End Select
Loop
szRandomPwd = szMakePwd
End Function