bist du denn nicht auf die Idee gekommen nach Findtext:=   noch die fehlenden Zeichen einzufügen? 

und die Prüfung des Folgebereiches [A-Z]  auf [a-zA-Z0-9] zu erweitern, nachdem du reguläre Ausdrücke recherchiert hast, war dir auch nicht möglich?

http://blog.weblogie.de/webentwicklung/merkblatt-regular-expressions/