validacion de salto de caracteres

[eberrios]

estoy de acuerdo con uds.
pero mi idea es agregarlo como función no especificar un textX determinado
y como verán en el código que les envió sirve para validar cualquier cuadro de texto que su ingreso sea numérico el problema que me sucede es al saltar de uno a otro...:

If KeyAscii = 13 Then

End If

en ese espacio deberá haber un código como el que me explica zabait "una matriz de controles" que en realidad nunca e tenido la necesidad de hacerla si me pudieran explicar de que se trata se los agradecería muxo

Public Function validar_numerico()
If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 13 Then
If KeyAscii = 13 Then
End If
Else
MsgBox "solo caracteres"
KeyAscii = 8
End If
End Function


aaaa y por sia ca la idea de esta funcion es la sig:

Private Sub Text1_KeyPress(KeyAscii As Integer)
validar_numerico
End Sub

agregarla en ese cuadro x y en el resto de los 100 para hacerlo mas facil a la hora de arreglar el codigo ;) o modificarlo

saludos