중복단어 삭제 방법

Function UniqueWords(sData As String, Optional delimiter As String = ",")
 
    Dim coll
    Set coll = CreateObject("system.collections.arraylist")
 
    Dim arr() As String
    arr = Split(sData, delimiter)
 
    LastIndex = UBound(arr)
    coll.Add arr(0)
 
    If coll.contains(arr(LastIndex)) Then
        coll.Add ""
    Else
        coll.Add arr(LastIndex)
    End If
 
    For n = 1 To LastIndex - 1
        If Not coll.contains(arr(n)) Then
            coll.Insert coll.Count - 1, arr(n)
        End If
    Next
 
    UniqueWords = Join(coll.toarray, " ")
 
End Function