Dim strTextOrg As String
Dim strTextRepl As String
Dim intErgebnis As Integer
 
strTextOrg="wertekduekewöwldjfhekwleke"
strTextRepl=Replace(strTextOrg, "e", "")
 
intErgebnis=Len(strTextOrg) - Len(strTextRepl)

EALA FREYA FRESENA