Visual Basic - Duda sobre Formularios

Mi pregunta es la siguiente: Declaro una variable tipo form y a esa variable le asigno un string, ej

Dim Formulario as Form
Dim NombreFormulario as String

Set formulario=NombreFormulario

Esto me da un error. ¿Como podria hacerlo?

Gracias

Private Sub Command1_Click()
Dim Formulario As Form
Dim NombreFormulario As String
Set Formulario = Form1
NombreFormulario = Formulario.Name

End Sub