Me pareción interesante tu pregunta y decidí tomarme un tiempo para desarrollarla, la puedes utilizar para lo que quieras... es más voy a ponerlo en el post de funciones, rutinas y librerias y aquí también para que soluciones tu problema
<%
cadena = "01,02,01,01,05,05,10,02,05,01,04,100,50,04,02 "
V = Split(cadena,",")
cant = Ubound(V)
num = -1
do
num = num + 1
for i = num+1 to Cint(cant)
if Cstr(V(num)) = V(i) then
V(i) = ""
end if
next
loop until num = cant-1
for a = 0 to CInt(cant)
if Cstr(V(a)) <> "" then xcadena = xcadena & "," & V(a)
next
xcadena = right(xcadena,len(xcadena)-1)
response.write(xcadena)
%>
SUERTE!