ник: ДрЮня
Если это событие на форме типа
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Private Sub Form_KeyPress(KeyAscii As Integer)
иначе, есть функция
Function Asc(String As String) As Integer
Member of VBA.Strings
Returns the ANSI character code of the first character in a string