codice:
inizio = Instr(1,"<var>",tuastringa)
fine = Instr(1,"</var>",tuastringa)
tuavariabile = mid(tuastringa,inizio+5,fine-inizio+5)
'qui ti trovi tutti i valori che vuoi
tuastringa = replace(tuastringa,"<var>"&tuavariabile&"</var>",valoreNuovo)
questo ti recupera solo il primo "tag", per recuperarlo in tutta la stringa devi fare un ciclo modificando il primo parametro della Instr (che è il punto da cui far partire la ricerca)
non l'ho provato quindi non so se funziona bene...ma l'idea è quella