VB - Error Checking On My Form

[agmorgan]

Im having a rough day and turned out this piece of crap.
Basically its quite repetitive.
Anyone fancy coding it better for me?

Please bear in mind that I will be modifying it later to VBScript.
e.g. For the drop down list boxes

.Text wil become .value

Unless you want to do the conversion as well?
How generous are you feeling?

I have attached the form, because it is too long to paste the code.