Userform, transfer characters to cells by typing

The code below allows you to edit the contents of a cell by typing ... and preserves the fonts every time a character is typed.
This works as intended.

Because there is a relatively large amount of code processed, every time a key is pressed, if you press several keys in quick succession, it throws the fonts out.
Try pressing a single key and wait until pressing the next, this is fine. Try pressing two or more keys in less than a second, the fonts are lost.

Is there a way to optimise the code so the issue is reduced.


ClassTyping

Please Login or Register  to view this content.

Userform code

Please Login or Register  to view this content.

Maybe it's not an issue with speed of typing?
If you press the same character in quick succession, there is no issue.
If you press different characters in quick succession, there is an issue ... also if you press and hold a key giving several of the same character.

I've tried counters and boolean expressions but these are not processed in logical order if the keystrokes are fast (for example, 2 KeyDown events recorded followed by 2 KeyUp events).

The Timer function may work, it shows the time in seconds, since the previous day. The accuracy seems to be to 1/100 seconds as observed with Debug.Print.
What I have below is a progression but has a peculiarity to it.
The characters are supposed to be entered only if the time difference between keystrokes is within 0.5 seconds.
Try pressing many keys in quick succession, nothing happens, then wait at least 0.5 seconds, press one more key ... and all the characters which did not appear before suddenly appear.

Is there anyway to fix this?


ClassTyping

Please Login or Register  to view this content.

This seems to work if anyone's interested.
It uses "vbNull" if typing speed is higher than the allowed, 0.5 seconds in this case.

Please Login or Register  to view this content.