How do I get a Module Collection

How can I get a collection of all the modules in my project in order to loop through them and extract the modulenames and populate a listbox with them?

Code:

---

'psuedo code

Open project.prj for input
read project.prj into str_in

if instring(str_in, "Module=") then
  open and read module that follows Module=
  look for "Attribute VB_Name =" in the module file
  add the name to the listbox
end if

close em up

---