Rechercher doublon sur listbox

Lorsque je clique sur une Listbox je récupère une partie du texte sélectionné avec une macro comme ceci:
Dim Infos as string
Infos = Split(ListBox1.Text, "_")
sheets("feuil1").Range("dm1") = Infos(3)

Je souhaiterais également que lorsque je clique sur la listbox qu'il détecte les doublons
pareil sur une partie du texte .le même texte que pour le (SPLIT) ci dessus.

Je débute en VBA pas facile!!