Change the code a bit.

For i = 3 To 255

That's to check which ascii key it is. Most of the keyboard keys are 32 To 126

For i = 32 To 126
Debug.Print Chr(i)

And that's how to get rid of unnecessary keys.