VB去除一个字符串中重复的字符串

我写了一个函数，去关于去除重复字符串的，但是处理出来的结果是错误的，有哪位高手指点一下

需要这样处理：
传进来一个字符串，
比如"000001,000001,000001",最后返回"000001";
比如"000001,000002,000001",最后返回"000001,000002";
比如"000001,000001,000002",最后返回"000001,000002";
等等，就是重复的字符串合为一个，不重复的就保留，而且字符串之间用,号隔开

VB code:

'去除重复字符串
Public Function RemoveRepeat(ByVal AStr As String) As String
Dim arrTemp() As String
Dim I As Long
Dim J As Long
Dim LStr As String
LStr = ""
arrTemp = Split(AStr, ",")
For I = 0 To UBound(arrTemp)
For J = I + 1 To UBound(arrTemp)
If arrTemp(I) = arrTemp(J) Then
arrTemp(J) = ""
End If
Next J
Next I

For I = 0 To UBound(arrTemp)
If arrTemp(I) <> "" Then
LStr = LStr & arrTemp(I)
If I < UBound(arrTemp) Then
LStr = LStr & ","
End If
End If
Next I

RemoveRepeat = LStr
End Function



我对VB代码不是很熟，不知道可以怎么处理

---

Public Function RemoveRepeat(ByVal AStr As String) As String