Some help again, on same thing

[Craig AS]

Im still working on the password entry thing.Dim strPass As String
Dim iTries As Integer
Private Sub CommandButton1_Click()

strPass = TextBox1.Text

Do Until iTries = 3
If strPass = "Password" Then
MsgBox "Log in OK!"
Run "signin"
End
End If
MsgBox "Log in NOT OK!"
iTries = iTries + 1
Exit Do
Loop

End Sub

Is it possible to use a number of diffrent passwords, rather than a signgle set password??? I'll work on it, untill any sugestions, thanx alot

Craig

 

[MrExcel]

Instead of an If, use a Select:

Select Case LoginID
Case "pass1", "pass2", "pass3"
Msgbox "Login OK"
Case
Msgbox "Not OK"
End Select