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 numChars As Integer = Regex.Matches(quote, ".").Count
Console.WriteLine(numChars)
End Sub
End Class
66