Private Sub Text5_KeyPress(KeyAscii As Integer)
Si se oprime la tecla Escape, se sale de este evento
If KeyAscii = 8 Then
    Exit Sub
End If
Si se oprime la tecla, Enter, se enva la tecla Tab, que manda el enfoque al 
siguiente control, de hecho estas 3 lneas de cdigo lo tiene todos los dems
controles
If KeyAscii = 13 Then
   SendKeys Chr(9)
End If
nicamente si se oprime un carcter que sea un digito, te deja capturarlo
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
    KeyAscii = 0
    Beep
End If
End Sub
