una soluzione la trovi sul sito di terzaghi, http://www.terzaghi.it/excel/index.htm, in domande e risposte, risposta 62.

l'unica cosa da variare sarà quella di restringere ancora di più i caratteri validi (terzaghi doveva eliminare solo degli spazi), sostituendo la riga:

If Asc(cc) < 127 And Asc(cc) > 32 Then s = s + cc

con questa:

If Asc(cc) < 58 And Asc(cc) > 43 Then s = s + cc