Alexandre, não sei se entendi bem o que você deseja fazer, mas creio que com expressão regular você consiga.
Veja um exemplo abaixo, se você pegar o código abaixo e colar em um arquivo texto e salvar como ".VBS", é só executar o VBS.
Dim texto : texto = "abc def def gef &troca& abc def def"
Dim texto_troca : texto_troca = "TEXTO_TROCADO"
Dim pattern : pattern = "&\w+&"
Dim rexp : set rexp = new RegExp
rexp.Pattern = pattern
rexp.IgnoreCase = true
rexp.Global = true
Dim testando : testando = rexp.replace(texto,texto_troca)
MsgBox(testando)
Veja exemplos também no link abaixo:
http://www.addedbytes.com/code/vbscript-regular-expressions/
Abraço
Estevam
**** Se a reposta foi útil, então não esqueça de marca-lá. ***