Expresiones regulares

¿No te sirve de esta manera?
Código:
<%
dato = "12345678, 87654379/80/81, 12345674/5"
dato = replace(dato, " ", "")
arr_dato = split(dato, ",")
for i = 0 to ubound(arr_dato)
arr_sub_dato = split(arr_dato(i), "/")
for j = 0 to ubound(arr_sub_dato)
if len(arr_sub_dato(j)) = 8 then
final = final & arr_sub_dato(j) & ","
tmp = arr_sub_dato(j)
else
final = final & left(tmp, 8 - len(arr_sub_dato(j))) & arr_sub_dato(j) & ","
end if
next
next
final = left(final, len(final)-1)
response.write final
%>
Saludos master!
EDIT: Cuando leí el mensaje hab+ía sólo una respuesta de u_g cuyo único contenido era el smilie "

"... se nota que me demoré un poco en pensar y escribir esas líneas