Dim a = {"あ", "い", "う", "え", "お"}
        Dim b = {"く", "あ", "け", "こ", "い"}


        Dim r1 = (From a1 In a
                  Where Array.IndexOf(b, a1) < 0
                    ).ToList

        Dim r2 = (From b1 In b
                  Where Array.IndexOf(a, b1) < 0).ToList


        Dim r3 = (From a1 In a Join b1 In b
                  On a1 Equals b1
                  Select a1).ToList