Visual Basic.NET - split vb.net

Private Sub Tratar()

        Dim FicheroALeer = New System.IO.StreamReader("D:\Tmp\TestSplit\FicheroDatos.txt", System.Text.Encoding.Default, True)

        Dim Separador As Char() = """"

        Dim LineaLeida As String

        Dim DatosTMP() As String

        Do Until FicheroALeer.Peek = -1

            LineaLeida = FicheroALeer.ReadLine

            DatosTMP = LineaLeida.Split(Separador)

            For Indicio As Integer = 0 To DatosTMP.Length - 1

                DatosTMP(Indicio) = DatosTMP(Indicio).Trim("""").Trim(",")

                If Not DatosTMP(Indicio) = String.Empty Then

                    ' Aqui es la cadena que quieras

                    ' ...

                End If

            Next

        Loop

        FicheroALeer.Close()

        FicheroALeer.Dispose()

    End Sub

End Class

Private Sub Tratar()

        Dim FicheroALeer = New System.IO.StreamReader("D:\Tmp\TestSplit\FicheroDatos.txt", System.Text.Encoding.Default, True)

        Dim Separador As Char() = """"

        Dim LineaLeida As String

        Dim DatosTMP() As String

        Do Until FicheroALeer.Peek = -1

            LineaLeida = FicheroALeer.ReadLine

            DatosTMP = LineaLeida.Split(Separador)

            dgProvi.ColumnCount = DatosTMP.Length - 1

            For Indicio As Integer = 0 To DatosTMP.Length - 1

                DatosTMP(Indicio) = DatosTMP(Indicio).Trim("""").Trim(",")

                SuprimirColumnaVacia(DatosTMP, Indicio)  ' Solamente si lo quieras

            Next

            dgProvi.Rows.Add(DatosTMP)

        Loop

        FicheroALeer.Close()

        FicheroALeer.Dispose()

    End Sub

    Private Sub SuprimirColumnaVacia(ByRef DT() As String, ByVal Indicio As Integer)

        Dim DTLen As Integer = DT.Length

        For I As Integer = Indicio To DTLen - 2

            DT(I) = DT(I + 1)

        Next

        ReDim Preserve DT(DTLen - 1)

    End Sub