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

[zeroyevi]

'codigo vb6 ------ en .net es casi lo mismo ' expresion IsNumeric

dim x_valor as string
dim num as boolean


x_valor ="123456789"
num = IsNumeric((x_valor))
If num = True Then
msgbox"es numero"
else
msgbox"no es numero"
end if


x_valor ="OIR67K"
num = IsNumeric((x_valor))
If num = True Then
msgbox"es numero"
else
msgbox"no es numero"
end if



'saludos si alguien necesita validar el rut el numerico