> ' Generate a password > ' expN1 Length of the password > Public Function GeneratePwd(ByVal tnLength As Integer) As String > Dim lcPassword As String = "" > Dim lnCounter As Integer = 0 > Dim lnRandom As Integer = 0 > > For lnCounter = 1 To tnLength > If lnCounter = 1 Or Int(Rnd() * 100) Mod 2 = 0 Then > lnRandom = Int(Rnd() * 25) + 97 > Else > lnRandom = Int(Rnd() * 9) + 48 > End If > lcPassword = lcPassword + Chr(lnRandom) > Next > > Return lcPassword > End Function >>