The basic code for shared or personal folders is:
Sub GetFolder()
Dim strFolder As String
Dim olNS As Outlook.NameSpace
Dim olRecipient As Outlook.Recipient
Dim iFolder As Outlook.Folder
Dim olMsg As MailItem
On Error Resume Next
Set olNS = Application.GetNamespace("MAPI")
Set olRecipient = olNS.CreateRecipient("Dan Wilson")
'Set olMsg = ActiveExplorer.Selection.Item(1)
strFolder = InputBox("Project?")
If strFolder = "" Then GoTo lbl_Exit
Set iFolder = olNS.GetSharedDefaultFolder(olRecipient, olFolderInbox).folders(strFolder)
'Set iFolder = olNS.GetDefaultFolder(olFolderInbox).folders(strFolder)
iFolder.Display
'olMsg.Move iFolder
lbl_Exit:
Set olNS = Nothing
Set olRecipient = Nothing
Set iFolder = Nothing
Set olMsg = Nothing
Exit Sub
End Sub
You don't have to display the folder to move a message to it so I have included code to move the message. The important bit is the path here
olNS.GetSharedDefaultFolder(olRecipient, olFolderInbox).folders(strFolder)
In the example I have just used one level below the inbox, whereas you have at least 5 so you would have to split up the value from the input box (I am not going to try and work out the logic there) and add the folders to the tree e.g
olNS.GetSharedDefaultFolder(olRecipient, olFolderInbox).folders(strFolder1).folders(strFolder2).folders(strFolder3). folders(strFolder4).folders(strFolder5)