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 numLines As Integer = Regex.Matches(quote, ".+\n*").Count
Console.WriteLine(numLines)
End Sub
End Class
3