Private Function LoadStrings(ByVal FileWithCheckedEntries As String, _
                                 FilewithUncheckedEntries As String) As _
                                 DataTable
 
            Dim dt As New DataTable
 
            With dt.Columns
                .Add("Select", GetType(Boolean))
                .Add("Path", GetType(String))
            End With
 
            For Each entry As String In _
                IO.File.ReadAllLines(FileWithCheckedEntries)
 
                dt.Rows.Add(True, entry)
            Next entry
 
            For Each entry As String In _
                IO.File.ReadAllLines(FilewithUncheckedEntries)
 
                dt.Rows.Add(False, entry)
            Next entry
 
            Return dt
 
    End Function
 
    Private Sub SaveStrings(ByVal dt As DataTable, _
                                 ByVal FileWithCheckedEntries As String, _
                                 FilewithUncheckedEntries As String)
 
        Using StreamWithCheckedEntries As _
            New IO.StreamWriter(FileWithCheckedEntries), _
            StreamWithUnCheckedEntries As _
            New IO.StreamWriter(FilewithUncheckedEntries)
 
            For Each row As DataRow In dt.Rows
                Dim vl() As Object = row.ItemArray
                If CType(vl(0), Boolean) Then
                    StreamWithCheckedEntries.WriteLine(vl(1))
                Else
                    StreamWithUnCheckedEntries.WriteLine(vl(1))
                End If
            Next row
        End Using
    End Sub