Enter:
For Each s As String In "a|,b,|cd|,e".Split(",") If e.Sender.Items.Contains(s) = False Then e.Sender.Items.Add(s) End IfNext