Beh, quell'esempio elimina tutto tranne le cifre (codice ascii da 48 a 57) e il backspace (ascii 8). Se vuoi solo l'invio...
codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> vbKeyReturn Then
        KeyAscii = 0
    Else
        MsgBox "hai premuto return!"
    End If
End Sub
Ciao