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