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