conti le chiocciole
alla disperata fai un Replace nidificato in cui sostituisci uno per uno tutti i caratteri con una stringa di lunghezza zero ad esclusione delle chiocciole
poi fai il Len(.....) delle chiocciole rimaste
Mi rendo conto che è una boiata, ma non mi vengono idee migliori 
per esempio se le tue i tuoi caratteri fossero solamente a, b, c, @
codice:
Len(Replace((Replace((Replace("bca@aa@cab@abb","a","")),"b","")),"c",""))
poi adattato a FireBird
PS: certo che se si potesse fare Replace("!@","")
dove !@ significa tutto ad esclusione di @ sarebbe bello,
ma non mi risulta
Chissa se qualcuno più esperto ha idee migliori 
.