Hola como estas, este codigo q hice, recorre todo los formularios q tiene tu proyecto y verifica los caption de cada uno con el nombre q ingresaste en el textbox, si se da la coincidencia pasa a mostrar el form llamado.
Al cargar el form "Principal" cargar en memoria tambien todos los form del proyecto.
Private Sub Command1_Click()
Dim ok As Boolean
For i = 0 To Forms.Count - 1 '---> Recorre todos los formularios con el objeto "Forms"
If Text1 = Forms(i).Caption Then '---> Compara con el q tipeaste
Forms(i).Show '---> Lo ejecuta
ok = True
End If
Next
If ok = False Then
MsgBox "El Form " & Text1 & " no existe."
End If
End Sub
Private Sub Form_Load()
Form1.Hide '---> Carga el Form1 pero no lo muestra
Form2.Hide '---> Carga el Form2 pero no lo muestra
End Sub
Private Sub Form_Unload(Cancel As Integer)
For i = Forms.Count - 1 To 0 Step -1
Unload Forms(i) '---> Cierra todos los form
Next
End Sub
Esta es una forma de verificar, otra seria con un Select Case verifiques cada uno de los caption de todos los form con el q escribiste en el textbox, claro q, tendras q escribir todos los caption, de cada form para cada Case.
No se si sera lo q necesitas. Saludos.
Autor
En línea
explica un poco mas.
+ 
= SOLUCIÓN
