BOTON LOGIN VARIOS USUARIOS
Private Sub LOGIN_Click()
If usuario.Text = Hoja1.Range("a1") And contraseña.Text = Hoja1.Range("b1") Or usuario.Text = Hoja1.Range("a2") And contraseña.Text = Hoja1.Range("b2") Or usuario.Text = Hoja1.Range("a3") And contraseña.Text = Hoja1.Range("b3") Or usuario.Text = Hoja1.Range("a4") And contraseña.Text = Hoja1.Range("b4") Or usuario.Text = Hoja1.Range("a5") And contraseña.Text = Hoja1.Range("b5") Or usuario.Text = Hoja1.Range("a6") And contraseña.Text = Hoja1.Range("b6") Or usuario.Text = Hoja1.Range("a7") And contraseña.Text = Hoja1.Range("b7") Then
MsgBox "BIENVENIDO A CLARO", vbInformation, "felicidades"
UserForm2.Show
Else
MsgBox "Nombre de usuario o Contraseña Incorrecta", vbCritical, "alerta"
End If

TEXTBOX USUARIO
Private Sub usuario_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
usuario.Text = ""
usuario.ForeColor = &HFFFF&
End Sub

TEXTBOX CONTRASEÑA
Private Sub contraseña_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If usuario.Text = "USUARIO" Or usuario.Text = "" Then
MsgBox "Por favor Ingrese su Nombre de Usuario"
Else
contraseña.PasswordChar = "*"
contraseña.Text = ""
contraseña.ForeColor = &HFFFFFF
End If

BOTON CANCELAR
Unload Userform.....