Не передаётся значение переменной

[1Steps]

Код: Выделить всё

        Dim F As String = Create_Path(OpDial.ListBox1.SelectedItems(0).ToString)
        Dim Txt As String
        Using SR As StreamReader = New StreamReader(F, System.Text.Encoding.Default)
            Txt = SR.ReadToEnd
        End Using
        Dim ar1() As String = _
        Txt.Split(New String() {vbCrLf}, StringSplitOptions.None)
        Dim R As String = ""
        For p As Integer = 0 To ar1.GetUpperBound(0)
            R &= ar1(p) & vbCrLf
        Next
        ChildCompare.Focus()
        ChildCompare.TextBox2.Text = R

        'Me.PrintDocument1.Print()

В переменную R ничего не передаётся, хотя массив имеет значение.
Может кто обьяснит почему или что я делаю не правильно?

[Nord777]

попробуй StringSplitOptions.RemoveEmptyEntries

[1Steps]

Пробовал сразу же, тоже самое

[Nord777]

кидай текстовый файл.

[1Steps]

Может я вообще иду в неправильном направлении.
Мне нужно распечатать три или пять файлов, на одном листе в столбик
стоящие друг возле друга.
Я пытаюсь переменной присвоить первую строку из массива м1, м2, м3.
Затем вторую строку тег-же массивов и т.д. Затем переменную распечатать. Или есть более простые подходы.

[1Steps]

Уже