Anzahl Zeichen in einem Text

Eine kleine Funktion um die Häufigkeit eines bestimmten Zeichens in einem Text zu bestimmen:

Private Function AnzahlZeichen(ByVal Text As String, ByVal SuchText As String) As Integer
    AnzahlZeichen = Len(Text) - Len(Replace(Text, SuchText, ""))
End Function

Sub Test()
    Debug.Print AnzahlZeichen("Visual Basic", "a")
End Sub
Your rating: Keine