Public Function FormOpen(ByVal frmCreator As Form , _
                                   [если необходимо, то еще куча параметров])

  Dim frm As New Form_Форма2    ' экземпляр формы, если есть желание,  
                                             ' то можно и саму форму 
  Call frm.FormOpenInit(frmCreator As Form , _
                           [если необходимо, то еще куча параметров])
  frm.Visible = True
  Set frm = Nothing
End Function

Private Sub Form_Open(Cancel As Integer)
  Set refMe = Me  ' Чтобы экземпляр не закрылся 
End Sub

Sub FormOpenInit(ByVal frmCreator As Form,  _
                                 [если необходимо, то еще куча параметров])
 
 ' frmCreator - в этой переменной находится ссылка на форму1, которая 
                  ' открыла текущую форму2,  
                   ' ее можно присвоить переменной на уровне модуля, и  
                   ' тогда в любой процедуре этого модуля можно делать 
                   ' с формой1 все что угодно  

End Sub

Private Sub CMDsozdARM_Click()
     
   call FormOpen(me , [если необходимо, то еще куча параметров])

End Sub