Imports System.Text.RegularExpressions Public Class Tester Public Shared Sub Main Dim quote As String = _ "The important thing" & vbNewLine & _ "is not to stop questioning." & vbNewLine & _ "--Albert Einstein" & vbNewLine Dim numWords As Integer = Regex.Matches(quote, "\w+").Count Console.WriteLine(numWords) End Sub End Class
10