Word count : Regular Expressions « Regular Expressions « VB.Net Tutorial

Imports System.Text.RegularExpressions
Public Class Tester
    Public Shared Sub Main
        Dim quote As String = "q d e w "

        Do While (quote.IndexOf(Space(2)) >= 0)
            quote = quote.Replace(Space(2), Space(1))

        Dim wordCount As Integer = Split(quote, Space(1)).Length
        Console.WriteLine(quote & vbNewLine & "Number of words: " & wordCount.ToString)   
    End Sub

End Class
q d e w
Number of words: 5

20.1.Regular Expressions
20.1.1.Regex Matches
20.1.2.Word count
20.1.4.Count chars: Regex.Matches(quote, .)
20.1.5.Word count: Regex.Matches(quote, '\w+')
20.1.6.Count line: Regex.Matches(quote, '.+\n*')
20.1.8.Match regular expression to string and print out all matches
20.1.9.Using Regex method Replace: substituted for *
20.1.10.Using Regex method Replace: Replace one string with another
20.1.11.Every word replaced by another word
20.1.12.Replace first 3 digits
20.1.13.String split at commas