VB contare quanti caratteri a una stringa

[sebamix]

Dim strStringa As String
strStringa = "anjksdaawgea"
MsgBox Len(strStringa) - Len(Replace(strStringa, "a", ""))