$array = '1233','3422','2453','3534','4343','4333','337','337','3437','3331','2444','3444','4444','4443','4433','4447','4447','4447' 

     $newArray = RemoveDups($array)  
     For Each $item In $newArray  
       ? $item    
     Next  







Function RemoveDups($ArrayToCheck)
  Dim $tmpArray[10], $elem, $h, $i, $j, $incr
  
  If VarType($ArrayToCheck) & 8192
    $found = 0
    $j = -1
    $incr = 10
  Else 
    Exit 87
  EndIf
  
  For $h = 0 to Ubound($ArrayToCheck)
    $elem = Trim($ArrayToCheck[$h])
    For $i = 0 to Ubound($ArrayToCheck)
      If $elem <> "xxDUPxx" AND $elem <> "" AND $elem = Trim($ArrayToCheck[$i])
        $found = $found+1
        If $found > 1
          $ArrayToCheck[$i]="xxDUPxx"
        EndIf
      EndIf
    Next
    $found=0
  Next
	
  For Each $item In $ArrayToCheck
    If Trim($item) > '' AND $item <> "xxDUPxx"
      $j=$j+1
      $tmpArray[$j]=Trim($item)
      If $j = Ubound($tmpArray)
        ReDim Preserve $tmpArray[Ubound($tempArray)+$incr]
      EndIf
    EndIf
  Next
  
  If $j = -1
    Exit 1
  Else
    ReDim Preserve $tmpArray[$j]
    $RemoveDups = $tmpArray
  EndIf
EndFunction