Imports System

Imports System.Text.RegularExpressions

​

Public Module Module1

​

    Public Sub Main()

        Dim MyLines As String = Environment.NewLine & Environment.NewLine & "1st line" & Environment.NewLine & "2nd line" & Environment.NewLine & "last line!" & Environment.NewLine & Environment.NewLine

        Dim MyLines2 As String = ""

        Dim MyLines3 As String = ""

​

'       MyLines2 = Regex.Replace(MyLines, "(" & Environment.NewLine & ")*$", "")

'       MyLines2 = Regex.Replace(MyLines2, "^(" & Environment.NewLine & ")*", "")

​

        MyLines3 = Regex.Replace(Regex.Replace(MyLines, "^(" & Environment.NewLine & ")*", ""), "(" & Environment.NewLine & ")*$", "")

​

        Console.WriteLine("1 -" & MyLines & "-")

        Console.WriteLine("2 -" & MyLines2 & "-")

        Console.WriteLine("3 -" & MyLines3 & "-")

    End Sub

End Module

​