Public Function getNoDupString(strDupString As String)
Dim strDupArray() As String
Dim intCounterI As Integer
Dim intCounterJ As Integer
Dim intFirstPos As Integer
strDupArray = split(strDupString, ",")
For intCounterI = 0 To UBound(strDupArray)
For intCounterJ = intCounterI + 1 To UBound(strDupArray)
If Trim(strDupArray(intCounterJ)) = Trim(strDupArray(intCounterI)) Then
strDupArray(intCounterJ) = ""
End If
Next intCounterJ
Next intCounterI
For intCounterI = 0 To UBound(strDupArray)
If Not strDupArray(intCounterI) = "" Then
getNoDupString = getNoDupString & strDupArray(intCounterI) & ","
End If
Next intCounterI
If Right(getNoDupString, 1) = "," Then
getNoDupString = Left(getNoDupString, Len(getNoDupString) - 1)
End If
End Function