Считывание текста из текстового файла

Imports System.IO
Public Class Form1
 
    Dim myReadFile As StreamReader
 
    Private Sub BOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BOpen.Click
 
        Dim code As DialogResult
        
        OpenFileDialog1.Title = "Открытие файла"
        OpenFileDialog1.CheckFileExists = True
        OpenFileDialog1.InitialDirectory = "I:\"
        code = OpenFileDialog1.ShowDialog()
 
        If code = DialogResult.OK Then
            Try
                myReadFile = New StreamReader(OpenFileDialog1.FileName())
 
                Dim sReadLine As String = ""
                While True
                    sReadLine = myReadFile.ReadLine()
                    If sReadLine Is Nothing Then
                        Exit While
                    Else
 
                        Dim lngCount As Long = 1
 
                        TBInhalt.Text = TBInhalt.Text.Insert(0, lngCount & ": " & sReadLine & vbNewLine)
                        lngCount = lngCount + 1
 
                        Dim nRec As Long
 
                        Do
                            sReadLine = myReadFile.ReadLine()             
                            nRec = nRec + 1
                        Loop While sReadLine <> Nothing
                        MessageBox.Show("Число записей: " & nRec)
 
                    End If
                End While
                myReadFile.Close()
                myReadFile = Nothing
                GroupBox1.Enabled = True
                BSelect.Enabled = True
 
            Catch ex As IOException
                MsgBox(ex.ToString)
            End Try
        End If
    End Sub
End Class

 Dim sr As StreamReader = New StreamReader(OpenFileDialog1.FileName())
        Dim tmp As String() = sr.ReadLine.Split(","c)
        If tmp(0) = "" Then
            CBPunktNr.Enabled = False
        ElseIf tmp(1) = "" Then
            CBXKoord.Enabled = False
        ElseIf tmp(2) = "" Then
            CBYKoord.Enabled = False
        ElseIf tmp(3) = "" Then
            CBZKoord.Enabled = False
        End If
        If code = DialogResult.OK Then

    Dim Mass() As String = IO.File.ReadAllLines("D:\1.txt") 'Читаем строки в массив
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Берем к примеру 1 строку т.е. 0.
        If Split(Mass(0), " ")(0) = "" Then 'Mass(0) - 1 строка, (0) - 1 итем перед разделителем " " и т.д.
            RadioButton1.Enabled = False
        Else
            RadioButton1.Enabled = True
        End If
        If Split(Mass(0), " ")(1) = "" Then
            RadioButton2.Enabled = False
        Else
            RadioButton2.Enabled = True
        End If
        If Split(Mass(0), " ")(2) = "" Then
            RadioButton3.Enabled = False
        Else
            RadioButton3.Enabled = True
        End If
        If Split(Mass(0), " ")(3) = "" Then
            RadioButton4.Enabled = False
        Else
            RadioButton4.Enabled = True
        End If
    End Sub

GroupBox1.Enabled = True

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Mass() As String = IO.File.ReadAllLines("D:\1.txt", System.Text.Encoding.Default) 'Читаем все строки.
        Dim O(Mass.Length - 1) As String 'Строки с номером.
        Dim X(Mass.Length - 1) As String 'Х координаты.
        Dim Y(Mass.Length - 1) As String 'Y координаты.
        Dim Z(Mass.Length - 1) As String 'Z координаты.
        For i = 0 To Mass.Length - 1 Step 1 'Заполняем массивы.
            O(i) = Split(Mass(i), " ")(0)
            X(i) = Split(Mass(i), " ")(1)
            Y(i) = Split(Mass(i), " ")(2)
            Z(i) = Split(Mass(i), " ")(3)
        Next
        Dim ERROR_O As Integer = 0 'Ошибки в номере.
        Dim ERROR_X As Integer = 0 'Ошибки в координатах X.
        Dim ERROR_Y As Integer = 0 'Ошибки в координатах Y.
        Dim ERROR_Z As Integer = 0 'Ошибки в координатах Z.
        Dim Index As Integer = 0
        'Проверка на ошибки 1 столбца:
        For i = 0 To O.Length - 1 Step 1 'Перебераем все строки из массива с номерами.
            For j = 0 To O(i).Length - 1 Step 1 'Берем каждый символ.
                If IsNumeric(O(i)(j)) = False Then 'Если этот символ не число то
                    ERROR_O = ERROR_O + 1 'Записываем ошибку.
                    Exit For 'Выходим из цикла перебора букв (переходим на сл. строку).
                End If
            Next
        Next
        'Проверка 2 столбца:
        For i = 0 To X.Length - 1 Step 1 'Перебераем все строки из массива с координатами.
            Index = 0 'Кол-во встречаемых запятых (т.е. если их > 1 то запишем ошибку) обнуляем т.к. новая строка.
            For j = 0 To X(i).Length - 1 Step 1 'Перебераем символы.
                If IsNumeric(X(i)(j)) = False Then 'Если символ не число то
                    If X(i)(j) <> "," Then 'Если символ не равен запятой то
                        ERROR_X = ERROR_X + 1 'Записываем ошибку.
                        Exit For 'Выходим из цикла.
                    Else 'Если символ = запятой то
                        If Index = 0 Then 'Если Index = 0 (т.е. запятая еще не встречалась) то
                            Index = Index + 1 '+ к index.
                        Else 'Если Index <> 0 (т.е. запятая уже встретилась).
                            ERROR_X = ERROR_X + 1 'Записываем ошибку.
                            Exit For 'Выходим из цикла (переходим на сл. строку). И Т.Д.
                        End If
                    End If
                End If
            Next
        Next
        'Проверка 3 столбца:
        For i = 0 To Y.Length - 1 Step 1
            Index = 0
            For j = 0 To Y(i).Length - 1 Step 1
                If IsNumeric(Y(i)(j)) = False Then
                    If Y(i)(j) <> "," Then
                        ERROR_Y = ERROR_Y + 1
                        Exit For
                    Else
                        If Index = 0 Then
                            Index = Index + 1
                        Else
                            ERROR_Y = ERROR_Y + 1
                            Exit For
                        End If
                    End If
                End If
            Next
        Next
        'Проверка 4 столбца:
        For i = 0 To Z.Length - 1 Step 1
            Index = 0
            For j = 0 To Z(i).Length - 1 Step 1
                If IsNumeric(Z(i)(j)) = False Then
                    If Z(i)(j) <> "," Then
                        ERROR_Z = ERROR_Z + 1
                        Exit For
                    Else
                        If Index = 0 Then
                            Index = Index + 1
                        Else
                            ERROR_Z = ERROR_Z + 1
                            Exit For
                        End If
                    End If
                End If
            Next
        Next
        MsgBox(ERROR_O)
        MsgBox(ERROR_X)
        MsgBox(ERROR_Y)
        MsgBox(ERROR_Z)
    End Sub
 
End Class

        If (CBPunktNr.Enabled = True) And (CBXKoord.Enabled = True) And (CBYKoord.Enabled = True) And (CBZKoord.Enabled = True) Then
            MsgBox("Файл загружен полностью!")
        Else
            Dim MESS As String = ""
 
            If CBPunktNr.Enabled = True Then
                MESS = MESS & " " & "№"
            End If
            If CBXKoord.Enabled = True Then
                MESS = MESS & " " & "X"
            End If
            If CBYKoord.Enabled = True Then
                MESS = MESS & " " & "Y"
            End If
            If CBZKoord.Enabled = True Then
                MESS = MESS & " " & "Z"
            End If
            MsgBox("Есть только:" & MESS & ".")
        End If

    Private Sub BSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BSelect.Click
        Dim outputFile As String = "temp.txt"
        SaveFileDialog1.FileName() = outputFile
        SaveFileDialog1.ShowDialog()
        GroupBox1.Enabled = True
        If (CBPunktNr.Enabled = True) And (CBXKoord.Enabled = True) And (CBYKoord.Enabled = True) And (CBZKoord.Enabled = True) Then
            MsgBox("Файл загружен полностью!")
        Else
            Dim MESS As String = ""
 
            If CBPunktNr.Enabled = True Then
                MESS = MESS & " " & "№"
            End If
            If CBXKoord.Enabled = True Then
                MESS = MESS & " " & "X"
            End If
            If CBYKoord.Enabled = True Then
                MESS = MESS & " " & "Y"
            End If
            If CBZKoord.Enabled = True Then
                MESS = MESS & " " & "Z"
            End If
            MsgBox("Есть только:" & MESS & ".")
        End If
    End Sub