Public Function CountLetter(ByRef sText As String, _
    sLetter As String, _
    Optional bCaseSens As Boolean = True) As Long
  ' sText       - Der Text in dem der Buchstabe gezählt werden soll
  ' sLetter     - Der Buchstabe der gezählt werden soll
  ' bCaseSens   - Soll Groß-/Kleinschreibung beachtet werden?
  Dim lCount    As Long
  Dim lPos      As Long
  If Not bCaseSens Then
    sText = LCase(sText)
    sLetter = LCase(sLetter)
  End If
  Do
    ' Den nächsten Buchstaben im Text finden
    lPos = InStr(lPos + 1, sText, sLetter)
    ' zählen
    If lPos > 0 Then lCount = lCount + 1
  Loop Until lPos = 0
 
  CountLetter = lCount
 
End Function