Remove Duplicates from List() function

Let ( [

TheValue = LeftValues ( Text ; 1 ) ;

TheCount = ValueCount ( Text ) ;

NewText = Replace ( Substitute ( “¶” & Text & “¶” ; [ “¶” ; “¶|” ] ; [ “|” & TheValue ; “” ] ; [ “|” ; “” ] ) ; 1 ; 1 ; “” )

] ;

     Case ( TheCount > 0 ;

          TheValue & RemoveDuplicates ( Replace ( NewText ; Length ( NewText ) ; 1 ; “” ) )

     )

)

For more information: http://www.briandunning.com/cf/492