Identificar numeros repetidos.

[Cuezaltzin]

Hola a todos.

Con el siguiente código, lo que estoy haciendo es mostrar el rango de números que hay antes de cada ","
Intentando verificar si existen números repetidos, pero no me sale como hacerlo. Ejemplo:

1 - 5 : 1 2 3 4 5.
6 - 10 : 6 7 8 9 10.
3 - 8 : 3 4 5 6 7 8.

Donde Existen el 3 4 y 5 repetidos como puedo hacerle para detectar los que están repetidos.

<%

Comas ="1-5,6-10,3-8"

Comas = split(Comas, ",")

For i = 0 to ubound(Comas)

Guion = Comas(i)
Guion = split(Guion, "-")

Response.Write "<br>"

For j = cInt(Guion(0)) to cInt(Guion(1))

Response.Write j & "&nbsp;&nbsp;"

Next

Next

%>

Espero haberme explicado lo suficiente, y gracias por su ayuda.