contare il numeo di lettere che contiene una stringa

[keko]

Ti posto il codice della funzione che ho creato per contare solo i caratteri che vuoi tu in una stringa.

   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.