Cosa cuol dire, che se ho una parola da 10 caratteri, ma ho uno
spazio tra questa e il punto di ricerca, devo estrarre 11 caratteri,
eliminare lo spazio 'inutile' e restituire i 10 caratteri validi ?
Sei sempre sicuro che ci sia un solo carattere tra la parola cercata
e la stringa da estrarre ?

In questo caso basterebbe :

codice:
     Dim Stringa  As String
     Stringa = Mid$(RichTextBox1.Text, FoundPos - 11, 10)
Ciao,