Modules & VBA :: Dynamic Listbox Search Error - Cannot Setfocus

I am using John Big Booty's code for narrowing down the content of a listbox. It works beautifully, with the exception of when I type the character "i" into the search box it gives me a Runtime 2110, cannot setfocus error. I have run through the entire alphabet in lower and upper case and consistently get the code failing on lowercase i only.

Here is the code:

Private Sub searchFor_Change()
'Create a string (text) variable
Dim vSearchString As String

'Populate the string variable with the text entered in the Text Box SearchFor
vSearchString = searchFor.Text

[Code] ....

Here is the link to the original thread that the code came from. [URL] ....