<code>Public Function CountWords(ByVal sText As String) As Long
  <font color=green>' Zählt die Anzahl Wörter eines Textabsatzes</font>
 
  Dim Satzzeichen As String
  Dim nCount As Long
  Dim I As Integer
  Dim bFlag As Boolean
  Dim sChar As String
 
  Satzzeichen = ",.;:!? " + Chr$(13)
 
  If Len(sText) > 0 Then
    nCount = 1: bFlag = False
    For I = 1 To Len(sText)
      sChar = Mid$(sText, I, 1)
      If InStr(Satzzeichen, sChar) > 0 And Not bFlag Then
        bFlag = True
        nCount = nCount + 1
      Else
        bFlag = False
      End If
    Next I
    If bFlag Then nCount = nCount - 1
  End If
 
  CountWords = nCount
End Function</code>