por si usas más números o formularios:
usas select case
case text
case "1111"
form2.show
case "3312"
form3.show
case "5555" ' por ejemplo
form?.show ' el form q quieras
case else
msgbox "Error de Clave"
end select
usas select case
case text
case "1111"
form2.show
case "3312"
form3.show
case "5555" ' por ejemplo
form?.show ' el form q quieras
case else
msgbox "Error de Clave"
end select