Can someone help me with this Outlook VBA..

[rzubulake]

I had this code working when i was on Windows 8.1 and i upgraded to Windows 10 and now it isnt working.
I made my own Archieve and had all mail move a copy to it when it comes in to my Inbox. This code used to mark the mail in my Inbox as unread after the copy.
Please check it out.