I did try but it gives an error at the line bolded as, "An Object could not be found"

Set myNameSpace = Application.GetNameSpace("MAPI")  
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)  
Set olFolder = MYFolder.Folders("Misc")