How can I move every unread message from default inbox to a shared folder with VBA code?

Question

I\'m trying to organize the mailbox (Outlook) for a co-worker. She has 10+ different mailboxes (don\'t ask me why) and she\'s having trouble answering all of the e-mails cause i