limpiar archivo de basura

[Troyano]

Tengo mas de una centena de archivitos rtf que se utilizan como plantillas para un sistema , pero como son generados con el word estos tiene basura que impide su uso directo asi tal cual.
Para limpiarlo estoy asiendo un programita a manera de utileria cuya parte principal es la siguiente:

'***********************************************
POS = 1
While POS < Len(Almacen) And POS <> 0
POS = InStr(POS, Almacen, "<<")
If POS <> 0 Then Pos2 = InStr(POS, Almacen, ">>")
If POS <> 0 And (Pos2 - POS) < 72 Then
Buscada = Mid(Almacen, POS, Pos2 - POS)
Buscada = "<<" & limpiar(Buscada) & ">>"
Mid(Almacen, POS, Pos2 - POS) = Buscada
POS = Pos2
Else
If POS <> 0 And (Pos2 - POS) > 72 Then POS = POS + 2
End If
Wend
'******************************************
Function limpiar(Cadena As String) As String
Dim Pos1 As Integer, Pos2 As Integer
Cadena = Mid(Cadena, 3, Len(Cadena) - 2)
Pos1 = 1
Pos1 = InStr(1, Cadena, "(")
Pos2 = InStr(1, Cadena, ")")
limpiar = Mid(Cadena, Pos1 + 1, Pos2 - Pos1 - 1)
End Function

*********************************************

Estas dos funciones las utilizo para cada uno de los archivos rtf y es en la variable almacen donde pongo el contenido del archivo actual y lo modifico para volverlo a escribir.

El proposito al final es el siguiente:

que una parte del documento como por ejemplo:
<<}{\b (FECHA DEL ACUERDO)>>
quede como:
<<FECHA DEL ACUERDO>>

pero queda asi:

<<FECHA DEL ACUERDO>>ERDO)>>

¿alguna sugerencia?