codice:
function totVolte(stringa,carattere)
  tot=0
  for i=1 to len(stringa)
    if(instr(i,stringa,carattere)>0) then
      tot = tot + 1
      i=instr(i,stringa,"c")
    end if
  next
  totVolte=tot
end function

arrValori = Array(1,1,2,3,4,2,4,5,6)

str = UNsplit(arrValori,",")

for i=0 to ubound(arrValori)
 if totVolte(str,""&arrValori(i))>1 and instr(1,exit,""&arrValori(i))=0 then
   exit = exit&","&arrValori(i)
 end if
next

if right(exit,1)="," then
  exit=left(exit,len(exit)-1)
end if

arrDoppi = split(exit,",")
così dovrebbe andare