Esto te puede servir declaras esto en un modulo:
Global forma As Form
creas 3 formas en la primera colocas un textbox y un boton en el boton pones esto:
Private Sub Command1_Click()
Dim bandera As Integer
Select Case Text1.Text
Case "Form2":
Set forma = Form2
bandera = 1
Case "Form3":
Set forma = Form3
bandera = 1
Case Else:
MsgBox "Forma no encontrada"
badera = 0
End Select
If bandera = 1 Then forma.Show
End Sub
Ya solo pones en el text la forma que quieres abrir.
Espero que te sirva
