VB Small Program Help

Hello,

I'm having some difficulty getting my program to validate dates < 1 or dates > 31 and months < 0 or months >12. Everything else is working fine but for some reason I can't get it to replace values that don't fall into the above to be entered as 1.

I'm new to programming and suck, I'm a network guy...lol. Anyways, if you could take a chance and look over my code and offer any assistance, I would greatly appreciate it.
Code can be found at:     Hello /g/,

    I need some help with my program that I am writing for VB.
    I can't get the date or month to validate correctly, it's not using my if structure to check if its a valid number for some reason. Any help would be greatly appreciated. Take it easy on me guys, I'm a network guy... lol.
    Code can be found at http://pastebin.com/d3d8a4cda

>>12
Thanks for the advice, but that doesn't help me solve the problem.
I noticed that I had this part messed up but it still doesn't matter. Should I be using strings for my variables, I don't understand why that would make a difference though.
 If Month < 1 Or Month > 31 Then