Imports System
Public Class GetTheFirstLineOfAMultiineString_VB_NET
Public Shared Sub Main(ByVal args As String())
Dim multiLineString As String =
"First line" & Environment.NewLine &
"Second line" & Environment.NewLine &
"Third line" & Environment.NewLine & "Fourth line"
Dim firstLine As String = multiLineString.Substring(0, multiLineString.IndexOf(Environment.NewLine, StringComparison.Ordinal))
Console.WriteLine("The first line is: " & firstLine)
End Sub
End Class
' run:
'
' The first line is: First line
'