Imports System
Public Class Program
Public Shared Sub Main()
Dim str As String = "vb.net" & Environment.NewLine & "java" & Environment.NewLine & "c" & Environment.NewLine & "python"
Dim lines As String() = str.Split({Environment.NewLine}, StringSplitOptions.None)
For Each line As String In lines
Console.WriteLine(line)
Next
End Sub
End Class
' run:
'
' vb.net
' java
' c
' python
'