过滤相同数字

[www_31365_com]

一个数组 a=（123,124,.....,123,124）
我需要把其中相同的过滤掉

变成a=（123,124,.....）

注，123，124只是个代表，省略号代表N，N > 1

[tank_pp]

a="23,123,124,12,23,124"
ar = Split(a,",")
b = ","
For i=0 To UBound(ar)
    If InStr(b, ","&ar(i)&",")=0 Then
            b = b & ar(i) & ","
    End If 
Next 
If b = "," Then
	b=""
Else
	b=mid(b,2,len(b)-2)
End If
ar = Split(b,",")

[Dogfish]

a="123,124,123,124"
ar = Split(a,",")
b = ""
For i=0 To UBound(ar)
	If InStr(b, ar(i))=0 Then
		If b="" Then
			b = ar(i)
		Else
			b = b & "," & ar(i)
		End If 
	End If 
Next 
ar = Split(b,",")