VB Code not sending e-mail of results or workbook.

Hello,

The problem I am having at the moment is that I have a survey which is filled in by a user a VB Form, and at the end I want a summary sheet of the filled in fields sent to the user which works fine, but I also want the filled in excel workbook which the user saves on their machine to also be sent as an e-mail to me, so I can produce results, now at the moment I am receiving a blank version and I think it’s the original saved version of the workbook which I do not want.
Have I overdone something simple or missing anything out, I cannot seem to work out why it doesn't work. The code is attached to this post.
Appreciate all the help.
Thanks