Abrir Form con un Text

[jmvacio]

Hola, quisiera pedir de su ayuda, lo que pasa es que quiero hacer un programita con 200 form's, para una serie de presentaciones, es decir tengo un text box y un boton y quisiera que al teclear el "1" en el text y presionar el boton, me abra el form que tiene el nombre "1", el codigo que tengo para el boton es el siguiente:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (Me.txthimno.Text.Trim > 200) Then
If MsgBox("Corrobora el numero del Himno", MsgBoxStyle.Information, "Himnos") = MsgBoxResult.Ok Then
End If
Limpiar()
Else
Uno.Show()
End If
End Sub

De antemano les agradezco de su ayuda.

JMVL

[Kruzado]

puedes hacerlo asi :

select case txthimno.Text
case 1
uno.show
case 2
dos.show
case 3
tres.show
case 4
cuatro.show
...
...
case 200
oscientos.show
case else
msgbox "Ingrese un Himno COrrecto"
end select

hasta donde yo se no s epude abrir un form en base a un string, lo que si pees hacer es llamar a una funcion por un strin con el comano callbyname ejemplo : callbyname(text1.text) y te abre la funcion que tenga el nombre de text1