Sub Example_Eval()
    'Этот пример показывает, как можно использовать Eval, чтобы управлять
    'фрагментом кода VBA, без необходимости создать модуль или процедуру.

    Dim VBACode As String
    
    ' Создайте фрагмент кода VBA
    VBACode = "MsgBox ""Simple code fragment"""
    
    ' Используйте метод Eval для выполнения кода VBA
    Eval (VBACode)
End Sub