Memanggil form dari "Nama"-nya

Private Sub Command1_Click()
Dim sFormName As String

sFormName = "Form2"
ExecuteForm sFormName
End Sub

Private Sub ExecuteForm(FormName As String)
Dim f As Form
Set f = Forms.Add(FormName)
f.Show
End Sub