Ciao kalavinus,

purtroppo in VBScript non so come si possa usare una funzione tra i parametri del replace della regular expression
però puoi sempre fare un ciclo e sostituire singolarmente i vari match con l'immagine prendendo l'id dal submatch
codice:
set ris = RegularExpressionObject.Execute(strtxt(cap))
for each rr in ris
  strtxt(cap)=Replace(strtxt(cap),rr, "[img][/img]")
next