Actually that is waaaay to complex.

This will do just as well, so long as you are not going to fall foul of string limits:
Code:
Break ON
$=SetOption("Explicit","ON")
Dim $array,$vElement
 
$array = '1233','3422','2453','3534','4343','4333','337','337','3437','3331','2444','3444','4444','4443','4433','4447','4447','4447' 
 
$array=udfRemoveDups($array)
 
For Each $vElement in $array
	" > "+$vElement+@CRLF
Next
 
Exit 0
 
Function udfRemoveDups($avArray)
	Dim $sDelimiter		$sDelimiter=@CRLF+"udfRemoveDups"
	Dim $iIndex
 
	For $iIndex=0 To UBound($avArray)
		If AScan($avArray,$avArray[$iIndex])=$iIndex $udfRemoveDups=$udfRemoveDups+$sDelimiter+$avArray[$iIndex] EndIf
	Next
 
	$udfRemoveDups=Split(SubStr($udfRemoveDups,Len($sDelimiter)+1),$sDelimiter)
EndFunction