Создание макроса в Exel

Есть текст макроса Exel, необходимо создать и запустить этот макрос в существующем файле, где этот макрос еще не создан, причем сделать это надо через переменные Variant.

AnsiString MacrosText="какое то значение";
Variant app, books, book, sheet;

app = CreateOleObject("Excel.Application");
books = app.OlePropertyGet("Workbooks");
books.Exec(Procedure("Open")<<FileName);
book = books.OlePropertyGet("item",ExcelList);
sheet = book.OlePropertyGet("WorkSheets",1);

Далее необходимо создать макрос и запустить его!
помогите кто знает, плиизз !!