io farei un ciclo sul primo array memorizzando i dati in una stringa(magari separati da virgola)

a quel punto, sempre in un ciclo dell'array, faccio l'instr del valore

se > 0 spezzo la stringa da quel punto e faccio di nuovo l'instr
se >0 inserisco in un nuovo array il valore.


se intendevi questo posso scriverti un po di codice.....


codice:
dim NewArr()
countNewArr=0
str=","

for i=0 to ubound(Array)
   Str=Str & Array(i) & ","
next

for i=0 to ubound(Array)
   if instr(str,"," & Array(i) & "," )>0 then
      newstr=left(str,(len(str)-instr(str,Array(i)))
      if instr(newstr,"," & Array(i) & ",")>0 then
         redim preserve NewArr(countNewArr)
         NewArr(countNewArr)=Array(i)
         countNewArr=countNewArr+1
      end if
   end if
next
un po contorto.....