You may want to take a look at: "Select case" in VBA's help

Select Case LCase(myPassword.TextBox1.Value)
Case Is = "kenny", "kenny2"
'do lots of stuff
Case Is = "jimmy"
'do different stuff
Case Else
MsgBox "no, no!"
End Select

Newbie1 wrote:

Happy Easter everyone

I have a working If statement

Private Sub CommandButton1_Click()
If MyPassword.TextBox1.Value = "kenny" Then
Unload MyPassword
Else
MsgBox "Password incorrect - access denied!"
End If
End Sub

I want to allow two values so I tried changing the first line to -

If MyPassword.TextBox1.Value = "kenny" Or "kenny1" Then

But that did not work!

Could someone assist please

Kenny
Windows Me and 2000
Office 97 and 2000

--

Dave Peterson