Find differences in cell text strings

Good morning/afternoon,

I think there is a way to do this with arrays, but I'm still pretty awful with them, so, hoping one of you can throw me an assist. Will try to explain here, but am also attaching a small sample of the data.

I have pipe separated values in three columns. Each cell starts with a category and counter (e.g. Topic (8), meaning there are 8 topics listed in the remainder of the string) and can have any number of values (including none). Each value consists of only one word - there are no multi word values, ever.

There will be anywhere from 5 to roughly 7,000 rows, though I've rarely seen files in excess of 250.

I need to find every value that is in column B, that is not in column C, and is not already in column D. Those should be dumped out into column E, pipe separated if possible, or alternated, each value dumped into the first available column in the active row.

THANK YOU FOR ANY HELP!!!!!!!!!!!!!!

6String beat me in, but I came up with the following:

Sub JPRomano()
Dim Evalue As String
Dim SplArray() As String
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
For j = 1 To LastRow
    Evalue = ""
    SplArray = Split(Range("B" & j).Value & "|", "|")
    For i = LBound(SplArray) To UBound(SplArray) - 1
        If InStr(1, Range("C" & j).Value, SplArray(i)) = 0 And InStr(1, Range("D" & j).Value, SplArray(i)) = 0 Then
            Evalue = Evalue & "|" & SplArray(i)
        End If
    Next i
    Range("E" & j).Value = Mid(Evalue, 13, Len(Evalue) - 1)
Next j
End Sub

If his works, it's probably better - mine doesn't add the "Topic" count to column E.

These are both tremendous solutions, giving me the results I need. Thank you both for your time and help!