How about
vb Code:
  1. Public Sub ShowForm(ByVal pstrFormName As String)

  2.     Dim MyForm As Form

  3.     Set MyForm = Forms.Add(pstrFormName)

  4.     MyForm.Show

  5. End Sub

  6.  
  7. Private Sub Command1_CLick()

  8. ShowForm "Form2"

  9. End Sub