Acceso con Contraseña

[FireStone]

Salu2 a todos...
Necesito ayuda con esto please el Ingreso normal que tengo es este:
If txtUsuario.Text = "XXXXXX" And txtContraseña.Text = "123456" Then
    MDIPadre.Show
    MDIPadre.Caption = txtUsuario.Text & " BIENVENIDO"
    Unload Me
  Else
    MsgBox "Eres un Intruso, "Mensaje"
End If
Y lo que quiero es tener a 3 usuarios con sus contraseñas respectivas, sin usar una BD Como lo puedo hacer?...
Gracias de antemano...

[_Sergi_]

Pues el mismo codigo, pero tres veces .... 

...es decir, algo así

Código [Seleccionar] Expandir

Select Case txtUsuario.Text

Case "USER 1"
If txtContraseña.text = "123456" Then
MDIPadre.Show
MDIPadre.Caption = txtUsuario.Text & " BIENVENIDO"
Unload Me
Else
MsgBox "Eres un Intruso, Mensaje"
Exit Sub

Case "USER 2"
If txtContraseña.text = "123456" Then
MDIPadre.Show
MDIPadre.Caption = txtUsuario.Text & " BIENVENIDO"
Unload Me
Else
MsgBox "Eres un Intruso, Mensaje"
Exit Sub

Case "USER 3"
If txtContraseña.text = "123456" Then
MDIPadre.Show
MDIPadre.Caption = txtUsuario.Text & " BIENVENIDO"
Unload Me
Else
MsgBox "Eres un Intruso, Mensaje"
Exit Sub

Case Else
MsgBox "Eres un Intruso, Mensaje"

End Select




[Hans el Topo]

yo metería un array con las contraseñas...

Código [Seleccionar] Expandir

const NUSUARIOS=3   'nº de usuarios
dim pass as variant
dim user as variant
dim validar as boolean

en el load pones
user=array("nick1","nick1","nick1")
pass=array("contraseña1","contraseña2","contraseña3")
validar=false

luego al identificarte 

dim i as integer  'auxiliar
while  i<NUSUARIOS and not validar
    if txtuser.text =user[i] and txtpass.text=user[i]
          validar=true
    end if
    i=i+1
wend

if validar then
   'bienvenido
else
  'ande vas piltrafilla
end if



si vana  abrir formularios diferentes los puedes cargar desde la colección form con la i  o en el if del while... xD

Nota: la putada de visual es que comprueba toda la condición y entonces jode todos los bucles while de comprobación y queda un código horroroso... xD

[FireStone]

Hey man muchas gracias eso si me sirvio
Salu2...