VB Code to Move Files

Hello:

Please refer to attached file.
I have lot of Stores and i have created Folder for each Stores to store scanned files
Main folder for each store is in C:\Dropbox\
and each store have sub folders listed in cell C6 down

For example :
Store1

C:\Dropbox\Store1
C:\Dropbox\Store1\BankStatement
C:\Dropbox\Store1\CDI
C:\Dropbox\Store1\DQStore_Rep

and so on...

Now I scanned all invoices etc for all stores once a week.
All Scanned files for all stores will be at location in cell E4:
C:\Dropbox\1Scanned\

Each scanned file will have names as follows:

mm-dd-yyyy-StoreName-Catagory.pdf

I need a VB Code to move the files to correct StoreName and correct category folder.

For Example:

10-22-2015-Store1-BankStatement needs to be moved from C:\Dropbox\1Scanned to C:\Dropbox\Store1\BankStatement
10-22-2015-Store3-CDI needs to be moved from C:\Dropbox\1Scanned to C:\Dropbox\Store2\CDI

Let me know if you have any questions.
Thanks.
RM