VbReturnKey

[usin]

is it possible to filter the keyboard to accept only numeric at the same time traping the vbreturnkey

for example:

Private Sub Text1_Keyup(Keycode As Integer, shift As Integer)
Dim lstitem As ListItem
If Keycode = vbKeyReturn Then SendKeys "{tab}"

end sub

thanks for any help.
usin