' Cómo definir los Text solo numéricos.

' Todo esto va en un (text) y con el procedimiento (keypress)

If keyascii = 13 Then 'cuando se oprime enter ocurre lo de abajo
If IsNumeric(TEXT1.Text) Then 'si el text es sólo numérico entonces
TEXT2.SetFocus 'pase al text o objeto que se desee
Else 'sino
MsgBox "SÓLO CARACTERES NUMÉRICOS", 0 + 48, "ERROR" 'mensaje que se desee
End If 'fin si
End If 'fin si