I'm trying to extend the number of users (with passwords) on a simple Userform but I can't work it out.
My code is:-

Private Sub OK_Click()

If UCase(TextBox1.Text) <> "BOND" Or UCase(TextBox2.Text) <> "SECRET" Then
MsgBox "Please enter the correct user name and password"
TextBox1.Text = ""
TextBox2.Text = ""
Me.TextBox1.SetFocus
Else
Range("User").Value = TextBox1.Text
Range("Password").Value = TextBox2.Text

Unload Me
End If
End Sub
How can I set up addiitonal User/passwords?
The login subsequently sets up a Page Parameter on Pivot Table.

As always any help would be greatly appreciated