Alisa,
Thanks for your reply.
I tried to write the Function for GetLetter, but have not had any success, here is what I wrote
Public Function GetLetter(KeyCode As Integer)
Dim varFruz As Variant
If KeyCode = 49 Then GetLetter = 1
If KeyCode = 59 Then GetLetter = 9
If KeyCode = 65 Then...