Сравнение данных двух DataGridView

DataGridView1.DataSource = NewDataTable("D:\list1.csv", "|", True)
DataGridView2.DataSource = NewDataTable("D:\list2.csv", "|", True)

 Public Shared Function NewDataTable(ByVal fileName As String, ByVal delimiters As String, Optional ByVal firstRowContainsFieldNames As Boolean = True) As DataTable
        Dim result As New DataTable()
 
        Using tfp As New TextFieldParser(fileName)
            tfp.SetDelimiters(delimiters)
 
            If Not tfp.EndOfData Then
                Dim fields() As String = tfp.ReadFields()
 
                For i As Integer = 0 To fields.Count() - 1
                    If firstRowContainsFieldNames Then
                        result.Columns.Add(fields(i))
                    Else
                        result.Columns.Add("Col" & i)
                    End If
                Next i
 
                If Not firstRowContainsFieldNames Then
                    result.Rows.Add(fields)
                End If
            End If
 
            Do While Not tfp.EndOfData
                result.Rows.Add(tfp.ReadFields())
            Loop
        End Using
        Return result
    End Function

Dim f1() As String = File.ReadAllLines("list1.csv")
Dim f2() As String = File.ReadAllLines("list2.csv")
Dim f4 As IEnumerable(Of String) = f1.Except(f2)
Dim f3 As IEnumerable(Of String) = f1.Intersect(f2)

Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
    Dim f1() As String = File.ReadAllLines("list1.csv")
    Dim f2() As String = File.ReadAllLines("list2.csv")
    Dim f4 As IEnumerable(Of String) = f1.Except(f2)
    Dim f3 As IEnumerable(Of String) = f1.Intersect(f2)
    toGrid(f1.AsEnumerable, ",", DataGridView1)
    'аналогично f2, f3, f4
End Sub
Private Sub toGrid(ByVal ff As IEnumerable(Of String), ByVal delim As String, ByRef dgv As DataGridView)
    dgv.Columns.Clear()
    dgv.ColumnCount = 4
    For Each ss As String In ff
        Dim s() As String = ss.Split(delim)
        dgv.Rows.Add(s)
    Next
End Sub

Public Class Form1
'…
    Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
        Dim f1() As String = File.ReadAllLines("list1.csv")
        Dim f2() As String = File.ReadAllLines("list2.csv")
        Dim cmp As New myDataComparer(0)
        Dim f4 As IEnumerable(Of String) = f1.Except(f2, cmp)
        Dim f3 As IEnumerable(Of String) = f1.Intersect(f2, cmp)
        toGrid(f1.AsEnumerable, ",", DataGridView1)
        'аналогично f2, f3, f4
    End Sub
End Class
 
Class myDataComparer
    Implements IEqualityComparer(Of String)
    Private col As Integer
    Public Sub New()
        col = 0
    End Sub
    Public Sub New(ByVal column As Integer)
        col = column
    End Sub
    Public Property delim As String = ","
    Public Overloads Function Equals(ByVal x As String, ByVal y As String) _
                  As Boolean Implements IEqualityComparer(Of String).Equals
        Dim sx As String = x.Split(delim)(0)
        Dim sy As String = y.Split(delim)(0)
        If sx Is Nothing AndAlso sy Is Nothing Then
            Return True
        ElseIf sx Is Nothing Or sy Is Nothing Then
            Return False
        ElseIf sx.Equals(sy) Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Overloads Function GetHashCode(ByVal xx As String) _
                As Integer Implements IEqualityComparer(Of String).GetHashCode
        Return xx.GetHashCode()
    End Function
End Class

Dim sx As String = x.Split(delim)(col)
Dim sy As String = y.Split(delim)(col)

       Dim lines As New List(Of String)()
    Dim lines2 As New List(Of String)()
 
 
 
    Try
        Dim reader As New StreamReader(System.IO.File.OpenRead("List1.csv"))
        Dim read As New StreamReader(System.IO.File.OpenRead("List2.csv"))
 
        Dim line As String
        Dim line2 As String
 
        'With this you can change the cells you want to compair
        Dim comp1 As Integer = 1
        Dim comp2 As Integer = 1
 
        line2 = read.ReadLine()
        line = reader.ReadLine()
 
        Do While line IsNot Nothing AndAlso line2 IsNot Nothing
            Dim split() As String = line.Split(Convert.ToChar(";"))
            Dim split2() As String = line2.Split(Convert.ToChar(";"))
 
            If line.Contains(";") AndAlso line2.Contains(";") Then
                If split(comp1) <> split2(comp2) Then
                    'It is not the same
                Else
                    'It is the same
 
                End If
            End If
            line2 = read.ReadLine()
            line = reader.ReadLine()
        Loop
        reader.Dispose()
        read.Dispose()
    Catch
 
    End Try

If split(comp1) <> split2(comp2) Then
                    'It is not the same
                Else
                    'It is the same
 
                End If

  For Each rw1 As DataGridViewRow In DataGridView1.Rows
            For Each rw2 As DataGridViewRow In DataGridView2.Rows
                If rw1.Cells(4).Value = rw2.Cells(4).Value Then
                    If rw1.Cells(4).Value IsNot Nothing Then
                        MsgBox(rw1.Cells(4).Value & "  найден в сетеке dgv2")
                        Exit For
                    End If
                End If
            Next
        Next

If split(comp1) <> split2(comp2) Then
   IO.File.AppendAllText("путь1", line & vbCrLf) 'несовпадения
Else
   IO.File.AppendAllText("путь2", line & vbCrLf) 'совпадения
End If

For Each rw1 As DataGridViewRow In DataGridView1.Rows
            For Each rw2 As DataGridViewRow In DataGridView2.Rows
                If rw1.Cells(4).Value = rw2.Cells(4).Value Then
                    If rw1.Cells(4).Value IsNot Nothing Then
                        MsgBox(rw1.Cells(4).Value & "  найден в сетке dgv2")
                        Exit For
                    End If
                End If
            Next
        Next