Ma io a quello che dice BR1 credo di esserci arrivato: ho preso questo programma che funziona benissimo.

dim RegEx, Matches
Set RegEx = New RegExp
RegEx.Pattern = lettera
RegEx.Global = True
RegEx.IgnoreCase = True
Set Matches = RegEx.Execute(carte3)
Occorrenza = Matches.Count
Set Matches = Nothing
Set RegEx = Nothing

Ma c'è il problema che carte3 è una stringa che ho messo io e non il valore della stringa presa dalla colonna giocodipr presa dal db.