Const strValidUser = "andermc";  '<- My NT/Exchange username 
Set objOutlook   = CreateObject("Outlook.Application")
Set objNS        = objOutlook.GetNamespace("MAPI")    
Set objRecipient = objNS.CreateRecipient(strValidUser)
    objRecipient.Resolve
    
If (False = objRecipient.Resolved ) Then '<- not return value from above!
    'need to exit nicely

##</code><code>##

    Set objInbox  = objNS.GetDefaultFolder(olFolderInbox)
    Set objFolder = objInbox.Folders(a_Folder_UNDER_Inbox)
    ...

##</code><code>##

#Create a folder object from a subfolder of Inbox... 
Set objFolder = objInbox.Folders(strMySubFolder)
#Or use the Parent property to move UP the hierarchy