Vedo che sei per la programmazione alternativa

No, quello che fai tu con quel codice non serve.

Deduco che le text box non facciano parte di un Array di textbox...in questo caso non ti resta che aggiungere il pezzo di codice "IF Keyascii...." in tutte le textbox.

Forse e' meglio se anziche' mettere quel codice, metti una chiamata ad una SUB che esegue quel codice (passandogli come parametro Keyascii) cosi' se devi fare una modifica a quel codice, lo fai una sola volta