Imports System

Imports Microsoft.VisualBasic

Imports System.Text.RegularExpressions

Public Module Module1

    Public Sub Main()

        dim s as string = "a" & vbcr & "b" & vbcr & "c"

        dim a() as string = s.split(vbcr)

        for each ss as string in a

            Console.Write("jhjhsss" & vbtab & " - " & ss & vbcrlf)

        next

    End Sub

End Module