VBA code to display folders hierarchy in

Could someone show me the source code for displaying a hierarchy tree of folders in Outlook 2000. I’m not looking for anything fancy just to get a list of folders to the debug window. Something like:
Mailbox – user
Calendar
Contacts
…
Public Folders
…