excel vba使用keypress keyascii在input的文本中检查希伯来语

在我的Excel-2013 VBA项目中，我有一个带有文本框的用户窗体。 我需要这个文本框只接受数字，AZ，az和27个希伯来字母。

Private Sub my_TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (Not (KeyAscii > 47 And KeyAscii < 58)) And _ <= 0-9 (Not (KeyAscii > 64 And KeyAscii < 91)) And _ <= AZ (Not (KeyAscii > 96 And KeyAscii < 123)) And _ <= az (Not (KeyAscii > 127 And KeyAscii < 155)) Then <= Hebrew KeyAscii = 8 Beep End If End Sub 

除希伯来语以外，工作正常。
它不识别ASCII 128到154作为希伯来语（这些值在ASCII代码页862中find）。
也就是说，试图在文本框中input希伯来字母会导致嘟嘟声。
如何告诉Excel使用第862页的ASCII码？

Answer 1

Dirk Reichel给了我一个简单的想法，即在input希伯来字符时debugging和检查进入my_TextBox的内容。
这就是我发现ASCII码希伯来字母在1488到1514之间的原因 。
我现在的代码是：

 Private Sub my_TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (Not (KeyAscii > 47 And KeyAscii < 58)) And _ <= 0-9 (Not (KeyAscii > 64 And KeyAscii < 91)) And _ <= AZ (Not (KeyAscii > 96 And KeyAscii < 123)) And _ <= az (Not (KeyAscii > 1487 And KeyAscii < 1515)) Then <= Hebrew KeyAscii = 8 Beep End If End Sub 

现在它也允许希伯来语。
谢谢德克。