I got it working. I changed this line in the code.
sDate = Format$(oMail.ReceivedTime, "Short Date")
to this
sDate = Format$(oMail.ReceivedTime, "m-dd")
Now when I run it, it will create the folder with todays date and then copy the mail into it.
Thanks for all of your help on this.