Basic - Controlar caracteres

Hola:
Me gustaría que si alguien tiene el código necesario para controlar que donde haya que introducir caracteres numéricos no se puedan insertar alfabético iviceversa, me lo enviara por correo.
Estaría enormemente agradecido.

Un saludo.

---para nros

for zzz=1 to 10 '<--para diez nros
repetir: nn$=input$(1)
if nn$ < "0" or nn$ > "9" then beep: goto repetir
(aqui tuz lineaz de codigo)
next zzz

---para alfabeto

for zzz=1 to 10 '<--para diez letras
repetir: nn$=input$(1)
nn$= Ucase$(nn$)
if nn$ < "A" or nn$ > "Z" then beep: goto repetir
(aqui tuz lineaz de codigo)
next zzz

Algo mas elegante
Utilizamos una variable de entrada en la que le indicamos los caracteres permitidos ej: Cad$="1234567890" y otra para la logitud maxima

Cad$="1234567890"
Max=10

Ini=0
Sal$=SPACE$(Max)
while a$<>chr$(13)
do
a$=inkey$
loop while instr(a$,Cad$)=0 and a$<>chr$(13)
'ahora no recuerdo se es asi o (Cad$,a$)
if a$<>chr$(13) then
if Ini=Max then
BEEP
else
Ini=Ini+1
mid$(Sal$,Ini,1)=a$
end if
end if
wend
Print Sal$

*****************
Faltaria el tratamiento de los cursores, asi como borrar y otras opciones mas de teclado