korta ner en sträng efter hela ord

/// <summary>
/// Try to shorten the Sentence if its longer then the numberOfWords it will add three
/// periods to inform the visitor that the text contains more then numberOfWords
/// </summary>
/// <param name="stringValue">The string value to shorten</param>
/// <param name="numberOfWords">how many words the function will return</param>
/// <returns>Returns a shorter version (if possible) of the stringValue</returns>
public static string shortString(string stringValue, int numberOfWords)
{
    char[] delimiterChars = { ' ', '\t'};
    string[] words = stringValue.Split(delimiterChars);
    if (words.Length - 1 > numberOfWords)
    {
        return string.Join(" ", words, 0, numberOfWords) + "...";
    }
    return stringValue;
}
/// <summary>
/// Try to return a shorter version of a text
/// </summary>
/// <param name="stringValue">The string value to shorten</param>
/// <returns>Returns a shorter version (if possible) of the stringValue</returns>
public static string shortString(string stringValue)
{
    return shortString(stringValue,6);
}

''' <summary>
''' Try to return a shorter version of a text
''' </summary>
''' <param name="stringValue">The string value to shorten</param>
''' <param name="numberOfWords">how many words the function will return</param>
''' <returns>Returns a shorter version (if possible) of the stringValue</returns>
''' <remarks></remarks>
Public Shared Function shortString(ByVal stringValue As String, Optional ByVal numberOfWords As Integer = 6) As String
    Dim delimiterChars As Char() = {" "c, Chr(9)}
    Dim words As String() = stringValue.Split(delimiterChars)
    If words.Length - 1 > numberOfWords Then
        Return String.Join(" ", words, 0, numberOfWords) + "..."
    End If
    Return stringValue
End Function

string test = shortString("Im testing to see if this can split my words correctly", 3); //Will split after 3 words

string test = shortString("Im testing to see if this can split my words correctly"); //Will split on 6 words

Dim Test as string = shortString("Im testing to see if this can split my words correctly", 3) 'Will split after 3 words

Dim Test as string = shortString("Im testing to see if this can split my words correctly") 'Will split on 6 words