Imports System
Public Class Program
Public Shared Function countLines(ByVal s As String) As Integer
Return s.Split(Environment.NewLine).Length
End Function
Public Shared Sub Main()
Dim str As String = "line1" & Environment.NewLine & "line2" & Environment.NewLine & "line3" & Environment.NewLine & "line4"
Dim count As Integer = countLines(str)
Console.Write(count)
End Sub
End Class
' run:
'
' 4
'