ActiveX is almost the same as VBA. If you know how to do it in VBA, then you should know how to do it in Lisp with ActiveX. The difference is the way you call the functions. Once you have your document (Doc), and you want to get the layouts, then you just grab the layout collections, and step through it, and grab the names.
(vlax-for Layout (vla-get-Layouts Doc)
(setq LayoutNameList (cons (vla-get-Name Layout) LayoutNameList))
)