Userform:Search through all ws / show results in Listbox

Hi,
thank you very much for the modifications. Unfortunately it again works only with small amount of rows. As soon as I try to use it with the original wordlist (0.5 Million Words) it shows me erro in line :

If InStr(LCase(ws.Cells(varRow, 1).Value), varSearchString) <> 0 Then

I use always the same list which has about 0.5 rows, which I am now uploading. I am sending you here the link for download.

"link was removed"

Please, let me know after you have downloaded it, so that i can delete the link again (cus of copy right matters)

regards

Regards