Odpoved mas hned v prvnim odkazu. Jen bys musel na ten odkaz kliknout a dostat se na stranku, kterou potrebujes:
http://office.lasakovi.com/excel/vba-soubory/excel -vba-vypsat-soubory-adresare/

Mas tam priklad:
Výpis adresáře pomocí VBA
Adresáře se vypíši do ListBoxu. ListBox1.AddItem můžeme nahradit třeby vypisem do dialogového okna MsgBox.

Nemohl jsem nic najit znamena, ze jsem ani nehledal nebo se ani nesnazil procist odkaz, ktery jsem v prvni odpovedi dostal.