Ti posto il codice della funzione che ho creato per contare solo i caratteri che vuoi tu in una stringa.
codice:
Dim Testo, nuovoTesto, nonConsentiti, scelta As String
Dim lungStringa, lungNuovoTesto, i, X As Integer
' Qui aggiungi i caratteri che non vuoi conteggiare
nonConsentiti = "!£$%&/()=?^#"
' Stringa da controllare
Testo = "!!Fran#ce%&/sco"
lungStringa = Len(Testo)
For X = 1 To Len(nonConsentiti)
scelta = Mid(nonConsentiti, X, 1)
nuovoTesto = Replace(Testo, scelta, "")
Testo = nuovoTesto
Next
lungNuovoTesto = Len(nuovoTesto)
Ciao.