Prendi la stringa e con la funzione split utilizzando come separatore la virgola caricala in un array.

Dopodichè cicli sull'array e per ogni elemento
vai a trovare, tramite la funzione instr dove cè il "-",
dal valore che ottieni usa la funzione MID e stampa la stringa.
Una cosa simile :

codice:
tuaStringa = "3-Pippo Pippetta, 4-Ciccio Ciccietta, 5-Tiziano Tizietta"
aryStringhe = split (tuaStringa,",")

for vCount = 0 to Ubound(aryStringhe)

  testo = Mid(aryStringhe(vCount), instr(1,aryStringhe(vCount), "-")) & ", "

next

'Response della stringa senza mettere l'ultima virgola e l'ultimo spazio
Response.write Left(testo, Len(testo)-2)