Multiple Passwords To Protect a Form

I have the following code to protect forms. Is there a way to have more than one password to open a form?



Private Sub Form_Open(Cancel As Integer)
Dim PassWord As String

PassWord = InputBox("Enter Password")
Cancel = (PassWord <> "password")


If Cancel Then MsgBox ("You are not authorized for access.")
End Sub


Thank you,
Bill