Cominciamo questa lezione correggendo quella precedente: nella routine cmdTrova_Click era infatti nascosto (anzi, era abbastanza evidente) un bug di cui avreste dovuto accorgervi: la parte di codice destinata a cercare l'ultimo testo puro in realtà non trova l'ultimo, ma quello successivo al primo. La correzione è molto semplice:

arriverebbe fino a zero generando un errore nella funzione Mid$(); per lo stesso motivo la variabile lInizio è inizializzata a 2 se lFine è uguale a 1.
Quando lFine=1, alla fine del secondo loop anche lInizio è uguale a 1, così che sTestoPuro(1) diventa la stringa vuota. La If finale serve a distinguere il caso in cui c'è un solo testo puro: in tal caso la ricerca si ferma quando lInizio=1 e per estrarre correttamente il testo puro occorre capire se il primo carattere è un carattere jolly (quindi il testo puro parte dal secondo carattere) oppure no (quindi il testo puro parte dal primo carattere).
Se invece la ricerca si ferma prima (ovvero dopo il primo carattere, dato che si parte dal fondo) significa che essa è terminata perché abbiamo incontrato un carattere jolly: non ci sarebbe bisogno di eseguire la If, ma per evitarlo avremmo dovuto introdurre un ulteriore controllo sul valore di lInizio (If lInizio=1 then …).
La nostra routine trova sempre il primo e l'ultimo testo puro, anche nel caso in cui questi coincidono (ad es. quando l'utente vuole cercare "?pippo#" o semplicemente "pippo"): se ciò si verifica, per evitare problemi nella ricerca del testo è opportuno impostare l'ultimo testo puro alla stringa nulla, in modo da essere consapevoli che di testo puro effettivamente ce n'è uno solo:

Per verificare la coincidenza dei due testi non basta che siano uguali (l'utente potrebbe cercare, ad es., "pippo*pippo"): condizione necessaria e sufficiente affinché i due testi siano coincidenti è che la loro posizione all'interno della stringa inserita dall'utente sia la stessa; il primo testo lo cerchiamo a partire dall'inizio della stringa con la funzione InStr, l'ultimo lo cerchiamo a partire dal fondo con la funzione InStrRev: se le due posizioni sono uguali, i due testi coincidono.
Fatto ciò, potremmo cominciare a cercare il testo, ma non abbiamo ancora considerato il caso in cui il primo e l'ultimo testo puro sia rispettivamente preceduto o seguito da caratteri jolly; in tal caso occorre infatti verificare se l'utente cerca anche una cifra oppure no.
Gli asterischi, potendo rappresentare anche zero caratteri, non influiscono concretamente sulla ricerca; i punti di domanda non danno indicazioni su quale carattere cercare, pertanto basta verificare che ci siano tanti caratteri quanti sono i punti di domanda specificati nella stringa da cercare. Invece i cancelletti rappresentano una cifra, e non possono essere liquidati tanto facilmente: la cosa più conveniente è trattarli come se fossero "testo puro": quindi se l'utente specifica, ad es., "??*#pippo*?piero##", anziché limitarsi a trovare "pippo" e "piero" occorre trovare un "pippo" preceduto da una cifra e un "piero" seguito da due cifre. In realtà, le cose sono un po' più semplici: basta cercare due cifre all'interno del testo, assicurarsi che la prima cifra sia preceduta da almeno due caratteri, e confrontare l'intero testo contenuto tra questi limiti con la stringa cercata dall'utente: l'operatore like ci dirà se i due testi corrispondono oppure no.
Utilizziamo un vettore lCifra(1) per indicare quanti caratteri devono precedere la prima cifra e quanti devono seguire l'ultima: nell'esempio, lCifra(0) sarebbe uguale a 2 mentre lCifra(1)=0; si tratta del minimo numero di caratteri per soddisfare la sequenza cercata dall'utente, in realtà la prima cifra potrebbe essere preceduta anche da 10 caratteri o l'ultima seguita da 10 caratteri.
Specifichiamo il valore -1 per indicare che non dobbiamo cercare cifre: ad es. nel caso "?pippo*piero*#" sarebbe lCifra(0)= -1, lCifra(1)=0.
Analogamente, utilizziamo un vettore lCarattere(1) per indicare quanti caratteri devono precedere il testo puro iniziale o seguire il testo puro finale: questa informazione ci servirà solo nel caso in cui la stringa da cercare non contenga numeri, ovvero caratteri "#".
In un caso come "?pippo#", sarà lCifra(0)=-1, lCifra(1)=0, lCarattere(0)=1, lCarattere(0)=0; se non usassimo lCarattere, non potremmo sapere che prima di "pippo" ci deve essere almeno un carattere, anche se non è una cifra; lCarattere(1) non sarà utilizzato in quanto già lCifra(1) ci dà tutte le informazioni necessarie.

Ora possiamo cercare il testo. L'algoritmo è relativamente semplice: se il primo testo puro è preceduto da una cifra, cerchiamo una cifra, altrimenti cerchiamo il testo puro iniziale; una volta trovato, cerchiamo da quel punto in poi il testo puro finale o la cifra che lo deve seguire.
A questo punto confrontiamo il testo contenuto tra gli estremi iniziale e finale e lo confrontiamo con la stringa definita dall'utente: se l'esito è negativo, continuiamo la ricerca del testo puro finale o della cifra finale, ricorsivamente, fino alla fine del file.
Se invece l'esito è positivo, evidenziamo il testo trovato e ci prepariamo a un'ulteriore ricerca.

Detto in altri termini, prima cerco il testo puro iniziale: se lo trovo, procedo da quel punto in poi cercando il testo puro finale finché trovo un testo che globalmente corrisponda a quello cercato dall'utente (loop interno); se non lo trovo, torno all'inizio (loop esterno) e cerco il testo puro iniziale successivo a quello trovato nell'iterazione precedente, dopodiché ricomincio la ricerca del testo puro finale, a partire dalla posizione del testo puro iniziale appena trovato.
L'errore "testo non trovato" viene perciò generato solo quando non trovo più un testo puro iniziale entro la fine del file, altrimenti devo continuare la ricerca del testo puro finale.
Questa situazione è controllata dalla condizione del loop esterno: (lFine = 0) And (lInizio < Len(.Text)); se non ho trovato un testo puro finale (lFine=0) e se non ho ancora cercato per tutto il file (lInizio<Len(.Text)), allora ripeto la ricerca del testo puro iniziale.