Here is another method:
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 $avArray[$iIndex]="" EndIf
	Next
	$avArray=Join($avArray,$sDelimiter)
	While InStr($avArray,$sDelimiter+$sDelimiter) $avArray=Join(Split($avArray,$sDelimiter+$sDelimiter),$sDelimiter) Loop
	$udfRemoveDups=$avArray
	$avArray=Split($avArray,$sDelimiter)
	If $avArray[0]="" $udfRemoveDups=$sDelimiter+$udfRemoveDups EndIf
	If $avArray[UBound($avArray)]="" $udfRemoveDups=$udfRemoveDups+$sDelimiter EndIf
 
	$udfRemoveDups=Split(Join(Split($udfRemoveDups,$sDelimiter+$sDelimiter),""),$sDelimiter)
EndFunction