Originariamente inviato da Umanista
oppure puoi fare una cosa del genere. Non so se ne vale la pena.

codice:
	arrValori = Array(1,1,2,3,4,2,4,5,6) 
	arrNewArray()
	
	Dim i, j, y
	y = 0
	
	For i = 0 To UBound(arrValori)
		
		For j 0 To UBound(arrValori)
			If arrValori(i) = arrValori(j) Then
				arrNewArray(y) = arrValori(i)
				y = y + 1
			End If			
		Next
	
	Next
avevo scritto male