VB6.0 Hacer validacion de una vez a todos los textboxes para que acepten solo numeros

[Samaris]

Hola!
Mi duda es la siguiente?

Sera posible que yo pueda validar mis textbox para que solo entren numeros pero a todos al mismo tiempo?

Es decir, no hacer esta rutina (que muestro abajo) para cada textbox sino a traves de un ciclo para todos ellos???
... porque son mas de 100...


Salu2


Private Sub f4_KeyPress(KeyAscii As Integer)

If (KeyAscii < 48) Or (KeyAscii > 57) Then

KeyAscii = 0
MsgBox "Solo se aceptan números", vbOKOnly + Exclamation, "Atencion"
f4.SetFocus

End If

End Sub