You would be better having the whole age input enclosed in a Repeat...Until which you can't exit until the correct thing is entered.
If you accept the age entered as a string you are then able to use VAL to convert it into a number - providing a number has been entered correctly. This in effect does the checking for you as letters entered are ignored by VAL if they are at the end of a string and convert to 0 (zero) if at the start.
Input Name Snippet
Rem Input Name
Repeat
CLS
Input "Please Enter Your Name: ";Name$
IllegalChar=0
For N=1 To Len(Name$)
If ASC(Mid$(Name$,N))>47 And ASC(Mid$(Name$,N))<58
IllegalChar=1
Print
Print "Sorry, Your Name Cannot Contain Numbers - Please Press Any Key To Try Again."
Wait Key
Exit
Endif
Next N
Until IllegalChar=0
Input Age Snippet
Rem Input Age
Repeat
CLS
Input "Please Enter Your Age: ";AgeStr$
Age = VAL(AgeStr$)
Until Age > 0
TDK_Man