Prueba de hacer una sentencia for hasta la longitud del campo
mmmmm pensemos :cantar: :cantar: ya tá
Dim cadena
cadena = ""
for i=0 to Len(campo)
cadena = cadena & Mid(campo,i,1) & "-"
next
' para quitar el ultimo guion
cadena = Mid(cadena,0,len(cadena)-1)
Response.write cadena
supongo que esto o algo así, ¿no?, supongo que lo tendrá de debuguear algo :-p