das komplett durchzuspielen hab´ ich keine Lust, aber ein paar Tipps kann ich geben 
1.) Prüfung gerade/ungerade:
Die Modula-Funktion verwenden (gibt den Rest eine Division aus). Wenn man modulo durch 2 teilt, bekommt man bei geraden Zahlen keinen Rest, bei ungeraden Zahlen aber schon. Also kann man z.B. das machen:
If x Mod 2 = 0 Then
Msgbox "Das ist eine gerade Zahl."
EndIf
2.) nur Zahlen in Textbox eingeben:
Im KeyPress-Ereignis einer Textbox kann man den Ascii-Code des eingegebenen
Zeichens abprüfen. Darüber kann man dann regeln, dass z.B. nur Zahlen eingegeben werden dürfen. Das Beispiel lässt nur Zahlen und die Backspace-Taste zu:
Private Sub txtTest_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
3.) if-then Schleifen
Die kann man prinzipiell mit endlos vielen AND und OR´s erweitern. Manchmal ist es aber sinnvoller, Mehrfachverzweigungen mit einer Select-Case Anweisung zu bauen.
Hoffe, das hilft ein wenig weiter.....
d@niel