VBAProject property

Yields a parsed TXLSVBAProject for a classic XLS workbook that contains a VBA storage. The project exposes the module count and module source text through TXLSVBAModule items If the workbook has no VBA project, the property returns nil Employ HasVBAProject / VBADefined to test for the raw payload, LoadVBAProjectFromFile and SaveVBAProjectToFile to move the preserved OLE storage payload, and ClearVBAProject to remove it from the workbook

Project := Workbook.VBAProject;
if Project <> nil then
  ModuleText := Project[1].SourceCode;