Sub Example_VBE()
    ' Этот пример использует VBA модель расширяемости интегрированной среды разработки, чтобы динамически создать VBA подпрограмму.
    ' После выполнения этого примера, см. первую строку программы в VBA окне кода интегрированной среды разработки, чтобы видеть новую подпрограмму.

    Dim VBEModel As Object
    Dim newRoutine As String
    
    Set VBEModel = VBE  ' Получите объект VBE
    
    ' Определите новую подпрограмму, которая будет добавлена.
    ' Это можно сделать динамически при помощи обратной связи с пользователем.
    newRoutine = "Sub Dynamic_Procedure()" & vbCrLf
    newRoutine = newRoutine & vbTab & "MsgBox ""Новая подпрограмма.""" & vbCrLf
    newRoutine = newRoutine & "End Sub" & vbCrLf
    
    ' Вставьте новую подпрограмму
    VBEModel.CodePanes(1).CodeModule.InsertLines 1, newRoutine
    
    MsgBox "Новая подпрограмма добавлена, название Dynamic_Procedure."
End Sub