文本框按回车键的问题

有一个文本框输入后，按回车键相应的是旁边按钮的单击事件。

我写的代码大致是：

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Call Button1_Click''如果桉下回车就调用旁边按钮的Click事件
End Sub
但是输入文本框后按回车键不起作用。不知道是怎么回事？是不是文本框的哪个属性设置的有问题？

请求大侠帮忙。谢谢!