Repeat Characters Appearing in a Text Box

This is my first post so I'm bound to make some errors. Feedback appreciated.

I have created code to populate the contents of a text box while simultaneously updating a label caption with search results from the entered text. The format of the worksheet looks like this:

ID Number	Group	Name
131010	Design	Jones,J
103005	Systems	Smith,G
146908	Programs	Hunter,F

The UserForm has a text box called NameText that can be selected by mouse click or tab from the previous field. My desired effect is that the user selects the NameText field and starts typing the Last name,First initial of the worker. As each character is typed, the function searches the database and returns the first occurrence of the name that starts with the entered text to an adjacent Label (labels 4 and 5). The code performs this function satisfactorily.

When I run this code in Debug mode using the F8 key to advance one step at a time, the characters are displayed only once and everything works properly. However, when I run the routine from Run Sub/UserForm (F5), each typed character is displayed twice even though the first character is shown in the Watch as being the only character entered. Subsequent keystrokes then include the extra characters.

My code to this point looks like this:

Please Login or Register  to view this content.

Thank you for considering this issue.

I've attached a file with example data and my code. I appreciate the look.
Example.xlsm

Thanks for the look - that does fix the double character problem.

Yes. KeyPress is supposed to respond to a Backspace (Ascii 8) event but I have been unable to make it work. The help file says:

The KeyPress event occurs when the user presses a key that produces a typeable character (an ANSI key) on a running form while the form or a control on it has the focus. The event can occur either before or after the key is released. This event also occurs if you send an ANSI keystroke to a form or control using either the SendKeys action in a macro or the SendKeys Statement in Visual Basic.

A KeyPress event can occur when any of the following keys are pressed:


Any printable keyboard character.
CTRL combined with a character from the standard alphabet.
CTRL combined with any special character.
BACKSPACE.
ESC.

Ideally, entries into the NameText Field using the Keypress code above should be able to respond with a single character deletion when the BS key is pressed using the following modification to the Case structure:

Please Login or Register  to view this content.

However, I can not get the text box to return a backspace value. Any thoughts?

I want it to decrement NameText.Value by the last typed character. Unfortunately, the BS key is not being recognized by the KeyPress.

Unfortunately, it was not working. I did, however, find a workaround:

Please Login or Register  to view this content.

This causes it to update instantly. Thanks very much for your help today - a great first forum experience.