you are leaving out the textbox control label

form1 is the form name
.text1 is the textbox control label
.text is the value within the texbox


try this

text1 = the name of your textbox control



Private Sub Button1_Click()
OpenForm (trim(txtFormName.TEXT1.text))
End Sub

Private Function OpenForm(lcFormName)'its not necessary for the AS OBJECT statement
lcFormName.SHOW
End Function