Password Generator in Visual Basic

'A sample visual code on how to generate a best random password generator

Public Function GeneratePassword(ByVal lngLength As Long) _

  As String

On Error GoTo Err_Proc

 

 Dim iChr As Integer

 Dim c As Long

 Dim strResult As String

 Dim iAsc As String

 Randomize Timer

 For c = 1 To lngLength

  

   'Randomly decide what set of ASCII chars we will use

   iAsc = Int(3 * Rnd + 1)

  

    'Randomly pick a char from the random set

   Select Case iAsc

     Case 1

       iChr = Int((Asc("Z") - Asc("A") + 1) * Rnd + Asc("A"))

     Case 2

       iChr = Int((Asc("z") - Asc("a") + 1) * Rnd + Asc("a"))

     Case 3

       iChr = Int((Asc("9") - Asc("0") + 1) * Rnd + Asc("0"))

     Case Else

       Err.Raise 20000, , "GeneratePassword has a problem."

   End Select

  

   strResult = strResult & Chr(iChr)

 Next c

 GeneratePassword = strResult

Exit_Proc:

 Exit Function

Err_Proc:

 MsgBox Err.Number & ": " & Err.Description, _

    vbOKOnly + vbCritical

 GeneratePassword = vbNullString

 Resume Exit_Proc

End Function