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