在文本框中检查回车键

Sub txtFindText_EventKeyPress(KeyCode)

  If KeyCode = 13 Then

     Call btnFind_Click

  End If

End Sub