Деление строки Split-om в VB

Dim Mass As New System.IO.StreamReader("D:\1.txt", System.Text.Encoding.Default)
Dim line() as String
Dim sep as Char = " "
Dim ID as Long
Dim X, Y as Double
For i As Long = 1 To Nstr 'Nstr-количество строк
line = Split(sr.ReadLine(), sep)
ID = line(0)
X = line(1)
Y = Line(2)
next i

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mass() As String = IO.File.ReadAllLines("путь к файлу", System.Text.Encoding.Default)
        Dim line()
        Dim tab As String = Chr(9)
        Dim ID as Long
        Dim X, Y as Double
 
        For i = 0 To UBound(mass)
            line = Split(mass(i), tab)
            ID = line(0)
            X = line(1)
            Y = line(2)
        Next
    End Sub

Option Strict On
Option Explicit On
Imports VB = Microsoft.VisualBasic
Imports System.Math
Imports System.IO
Imports System
Public Class Form1
    Inherits System.Windows.Forms.Form
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        Me.Close()
    End Sub
 
    Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click
        OpenFileDlg.Filter = "Las файлы (*.las)|*.las|Текстовый документ (*.txt)|*.txt|Все файлы (*.*)|*.*"
        OpenFileDlg.Title = "Загрузка файла каратажа"
        OpenFileDlg.InitialDirectory = "D:\work\"
        OpenFileDlg.FileName = ""
        OpenFileDlg.ShowDialog()
        TextBox1.Text = OpenFileDlg.FileName
 
        Dim Mass() As String = IO.File.ReadAllLines(OpenFileDlg.FileName)
        Dim ID(Mass.Length - 1), X(Mass.Length - 1), Y(Mass.Length - 1), Z(Mass.Length - 1), T(Mass.Length - 1) As String
 
 
        Dim tab As String = Chr(9)
 
        For i = 0 To Mass.Length - 1 Step 1
            ID(i) = Mass(i).Split(CChar(";"))(0) 'Заполняем 1 столбец.
            X(i) = Mass(i).Split(CChar(";"))(1) 'Заполняем 2 столбец.
            Y(i) = Mass(i).Split(CChar(";"))(2) 'Заполняем 3 столбец.
            Z(i) = Mass(i).Split(CChar(";"))(3)
            T(i) = Mass(i).Split(CChar(";"))(4)
        Next
 
        RichTextBox1.Text = Join(ID, vbCrLf)
        RichTextBox2.Text = Join(X, vbCrLf)
        RichTextBox3.Text = Join(Y, vbCrLf)
        RichTextBox4.Text = Join(Z, vbCrLf)
        RichTextBox5.Text = Join(T, vbCrLf)
 
    End Sub
 
    Private Sub СоздатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СоздатьToolStripMenuItem.Click
        Dim myStream As Stream
        Dim saveFileDialog1 As New SaveFileDialog()
 
        saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        saveFileDialog1.FilterIndex = 2
        saveFileDialog1.RestoreDirectory = True
 
        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            myStream = saveFileDialog1.OpenFile()
            If (myStream IsNot Nothing) Then
                RichTextBox1.SaveFile("SaveFileDlg.FileName", RichTextBoxStreamType.RichText)
                RichTextBox2.SaveFile("SaveFileDlg.FileName", RichTextBoxStreamType.RichText)
                RichTextBox3.SaveFile("SaveFileDlg.FileName", RichTextBoxStreamType.RichText)
 
 
            End If
        End If
 
    End Sub
End Class

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        OpenFileDlg.Filter = "Las файлы (*.las)|*.las|Текстовый документ (*.txt)|*.txt|Все файлы (*.*)|*.*"
        OpenFileDlg.Title = "Загрузка файла каратажа"
        OpenFileDlg.InitialDirectory = "D:\work\"
        OpenFileDlg.FileName = ""
        OpenFileDlg.FilterIndex = 3
        OpenFileDlg.ShowDialog()
        TextBox1.Text = OpenFileDlg.FileName
 
 
        Dim oExcel As Microsoft.Office.Interop.Excel.Application
        Dim oBook As Microsoft.Office.Interop.Excel.Workbook
        Dim oSheet As Microsoft.Office.Interop.Excel.Worksheet
 
 
 
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add
        oSheet = oBook.Worksheets(1)
 
        oSheet.Cells().NumberFormat = "General"
 
        oExcel.Visible = True
 
 
 
 
 
        RichTextBox1.Text = ""
        RichTextBox2.Text = ""
        RichTextBox3.Text = ""
        RichTextBox4.Text = ""
        RichTextBox5.Text = ""
 
        Dim Mass() As String = IO.File.ReadAllLines(OpenFileDlg.FileName, Encoding.Default)
        Dim Ub = Mass.Length - 1
        Dim strSplit() As String
        Dim ubSplit As Integer
 
        For j = 0 To Ub
            strSplit = Split(Mass(j), ";")
            ubSplit = strSplit.Length
 
            RichTextBox1.Text = RichTextBox1.Text & strSplit(0) & Chr(10)
            RichTextBox2.Text = RichTextBox2.Text & strSplit(1) & Chr(10)
            RichTextBox3.Text = RichTextBox3.Text & strSplit(2) & Chr(10)
 
            oSheet.Range("A" & CStr(j + 1).Trim).Resize(1, ubSplit).Value = strSplit
        Next
 
        oExcel = Nothing
    End Sub