Nevermind I got it.

*****
I moved
olMail.UnRead = False
olMail.Move Fldr.Folders("Archived")

Placed it after
sStr = olMail.Body

*****

I still welcome any suggestions on making this better as my computer
seems to slow down after running this.