Сравнить два списка найти не соответствующие предметы

Question

Я кодирую на VB.net. Я хотел бы сравнить 2list и найти не соответствующие предметы. Но мой код ищет только первые элементы списка, поэтому он не проверяет, отсутствует ли он.

Я буду использовать Serie_Code в моем сравнении.

SelectedItems - это список строк,

SeriConrolList - это список:

Private Property SeriControlList As List(Of SeriRow)
    Get
        If Session("SeriControlList") Is Nothing Then
            Session("SeriControlList") = New List(Of SeriRow)
        End If
        Return Session("SeriControlList")
    End Get
    Set(value As List(Of SeriRow))
        Session("SeriControlList") = value
    End Set
End Property

А вот как SeriRow:

Private Class SeriRow
    Public Serie_Code As String = String.Empty
    Public Serie_Name As String = String.Empty
    Public Serie_Name_Eng As String = String.Empty
    Public Frequency As String = String.Empty
    Public Behaviour As String = String.Empty
    Public Summable As Integer = 0
    Public Data_Source As String = String.Empty
    Public Data_Source_Eng As String = String.Empty
    Public Start_Date As Date? = Nothing
    Public End_Date As Date? = Nothing
End Class

SeriControlList имеет 28 пунктов.

Выбранные элементы имеют 26 элементов.

Dim hash As HashSet(Of String) = New HashSet(Of String)(SeriControlList.Select(Function(x) x.Serie_Code.Replace("_", ".")))
Dim Result = (SelectedItems.Where(Function(x) Not hash.Contains(x.ToString))).ToList

Я тоже пробовал это:

Dim TupleAdd = (From nt In SeriControlList Where Not SelectedItems.Any(Function(n) Not nt.Serie_Code.Replace("_", ".") = n) _
              Select nt.Serie_Code, nt.Serie_Name, nt.Serie_Name_Eng, nt.Frequency, nt.Start_Date, nt.End_Date, _
              nt.Behaviour, nt.Data_Source, nt.Data_Source_Eng, nt.Summable).ToList

Также попытался отменить это сравнение. Есть 2 пропущенных предмета, и они возвращают только 0.

Спасибо

РЕДАКТИРОВАТЬ: я сделал это следующим образом и отлично работает:

For i = 0 To Me.SeriControlList.Count - 1
                If Not SelectedItems.Contains(SeriControlList(i).Serie_Code.Replace("_", ".")) Then
                    Tuple = New SeriRow
                    Tuple.Serie_Code = Me.SeriControlList(i).Serie_Code
                    Tuple.Serie_Name = Me.SeriControlList(i).Serie_Name
                    Tuple.Serie_Name_Eng = Me.SeriControlList(i).Serie_Name_Eng
                    Tuple.Start_Date = Me.SeriControlList(i).Start_Date
                    Tuple.End_Date = Me.SeriControlList(i).End_Date
                    Tuple.Frequency = Me.SeriControlList(i).Frequency
                    Tuple.Summable = Me.SeriControlList(i).Summable
                    Tuple.Behaviour = Me.SeriControlList(i).Behaviour
                    Me.TCMBtoVRMT.Add(Tuple)
                End If

            Next