''' <summary>
   ''' Zählt die Anzahl der Wörter im Text, wobei Wörter, die durch ein 
   ' Unterstrich (_), ein Minus
   ''' (-) oder einem Slash (/) getrennt sind als ein Wort gezählt werden.
   ''' </summary>
   ''' <param name="text">Der zu prüfende Text.</param>
   ''' <returns>Die Anzahl der im Text enthaltenen Wörter.</returns>
   ''' <remarks></remarks>
   Public Function WordsCount(ByVal text As String) As Integer
      Dim regex As New System.Text.RegularExpressions.Regex( _
                   "[a-zA-Z_0-9äöüß\-/]+", RegularExpressions.RegexOptions.None)
 
      Return regex.Matches(text).Count
   End Function