VBA - 组合框的按键不起作用

Question

我的代码出现编译错误，但我不知道为什么。目标是在 TextBoxKeywords 中输入一个单词，然后按 Enter。按 Enter 应该触发名为 ButtonSearch_Click 的宏。应该很简单，但它给了我一个编译错误。为什么？

Private Sub TextBoxKeywords_KeyPress(KeyAscii As Integer)
    If (Chr(KeyAscii) = 13) Then              '<<<<<<Keyascii 13 = Enter key
        Call ButtonSearch_Click
    End If
End Sub