I need to point to my Personal Folders File in Outlook 2003

Hi, I am a Mainframe Programmer, but by no means an experienced VBA user, so whilst I can code the logic and processing, I have trouble with the pointers and setting up of variables, hopefully somebody can help me with this ...

I have the following VBA code that I used in an Outlook 2000 macro to access a specific personal folder which was just a sub-folder within INBOX :

Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
Set SubFolder1 = Inbox.Folders("Gary")
Set SubFolder2 = SubFolder1.Folders("Kickabout")
Set SubFolder3 = SubFolder2.Folders("Attachments")

This means I end up with SubFolder3 as the pointer to the folder I want to access.
 
In Outlook 2003, my folders are no longer sub-folders of INBOX, but are within a Personal Folders File "TheHeaths", though the sub-folders Gary/Kickabout/Attachments are the same ...

How do I amend/replace this code to work in Outlook 2003 please, to point directly at the Personal Foldefs File folder that I want to access ?!?

Any help much appreciated ...