Sub workOnForm(formName as String)
    Dim curForm as UserForm
    set curForm = UserForms(formName)
    ' ..... действия с формой
End Sub