Visual Basic.NET - leer un fichero de texto

Private Sub Guardar_Click(sender As Object, e As EventArgs) Handles Guardar.Click

        Using Variables As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\Users\Fabian Gallegos\Desktop\variables.txt")

            Variables.TextFieldType = FileIO.FieldType.Delimited

            Variables.SetDelimiters(",")

            Dim Val As String()

            ReDim Preserve Val(50)

            Dim ValMap As String

            While Not Variables.EndOfData

                Try

                    Val = Variables.ReadFields()

                    For Each ValMap In Val

                        UnidadB = Val(0)

                        NombredeusuarioB = Val(1)

                        ContraseñaB = Val(2)

                        OrigenB = Val(3)

                        DestinoB = Val(4)

                        UnidadA = Val(5)

                        NombredeusuarioA = Val(6)

                        ContraseñaA = Val(7)

                        OrigenA = Val(8)

                        DestinoA = Val(9)

                    Next

                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException

                    MsgBox("line" & ex.Message & "is not valid and will be skipped.")

                End Try

            End While

        End Using

End Sub

"B","UID_DAJ","DAJ19","B:/","C:/Carpeta2/","A","UID_DAF","DAF54","A:/","C:/Carpeta2/","D","UID_DAH",

"DAH19","D:/","C:/Carpeta3/",

"F",

"UID_DAX","DAX54","F:/","C:/Carpeta3/"

LineaTMP = FicheroALeer.ReadToEnd 'Leer todas lineas

        ' Con esta manera, es posible que esta olvidado una coma a la final de una linea o que existe una coma demasiado a la final de la ultima linea

        LineaTMP = ""

        Do Until FicheroALeer.Peek = -1

            LineaTMP &= FicheroALeer.ReadLine

            If FicheroALeer.Peek <> -1 And LineaTMP.Substring(LineaTMP.Length - 1, 1) <> SeparadorSplit Then

                LineaTMP &= SeparadorSplit

            End If

        Loop

        LineaTMP = LineaTMP.TrimEnd(SeparadorSplit)

"B","UID_DAJ","DAJ19","B:/","C:/Carpeta2/","A","UID_DAF","DAF54","A:/","C:/Carpeta2/","D","UID_DAH",

"DAH19","D:/","C:/Carpeta3/"

"F"

"UID_DAX","DAX54","F:/","C:/Carpeta3/",

Private Sub LecturaFichero()

        If Not System.IO.File.Exists(NombreFichero) Then

            MessageBox.Show("No encontrado " & NombreFichero & vbCr _

                            & "Ningun fichero leido", "")

            Exit Sub

        End If

        FicheroALeer = New System.IO.StreamReader(NombreFichero, System.Text.Encoding.Default)

        Dim UnRegistro As String

        ' LineaTMP = FicheroALeer.ReadToEnd 'Leer todas lineas

        ' Con esta manera, es posible que esta olvidado una coma a la final de una linea o que existe una coma demasiado a la final de la ultima linea

        LineaTMP = ""

        Do Until FicheroALeer.Peek = -1

            LineaTMP &= FicheroALeer.ReadLine

            If FicheroALeer.Peek <> -1 And LineaTMP.Substring(LineaTMP.Length - 1, 1) <> SeparadorSplit Then

                LineaTMP &= SeparadorSplit

            End If

        Loop

        LineaTMP = LineaTMP.TrimEnd(SeparadorSplit)

        DttTMP = LineaTMP.Split(SeparadorSplit) ' 'DttTmp tiene todos campos de todos registros

        ' Con estas cicla, tenemos cada campos. Ver que hacer con ...

        ' En este ejemplo, agrego cada campos para rehacer cada regsitro y envio cada regiotro en ListBox

        For R = 0 To DttTMP.Count - 1 Step CantidadCamposPorRegistro

            UnRegistro = ""

            For C = R To R + CantidadCamposPorRegistro - 1

                UnRegistro &= DttTMP(C) & IIf(C < R + (CantidadCamposPorRegistro - 1), SeparadorSplit, "")  ' Poner una coma o no

            Next

            ListBox1.Items.Add(UnRegistro)

        Next

        FicheroALeer.Close()

        FicheroALeer.Dispose()

    End Sub