Mismatch Debbuging

Hello,

Below there is code for some inputboxs as well as some if statements on their results. The Exit sub situations work fine but If i do actually put a valid answer in the secod input box then it results in a mismatch error on the OR statement... Can anyone tell me why the first inputbox works fine but the second one gives me a type mismatch error when a valid input is given? Also if there's a more efficient way to do this please feel free to correct the code.

Thanks

Please Login or Register  to view this content.

Please Login or Register  to view this content.

is another way to deal with that.
Since Month is a VB function, I'd steer away from using it as the name of a variable.