4609 - La Cadena es demasiado larga

Buenas, les cuento mi problema a ver si me pueden ayudar
Version de Word: XP

Tengo una plantilla, que tiene 2 campos de formularios, uno es un combo que
tiene 2 opciones, el otro es un campo de texto donde, dependiendo el valor
del combo, se ejecuta la siguiente macro y se completa con el valor que le
corresponde... si el valor a usar es el de la variable TextoEscritura el
campo de texto se completa sin problemas, si uso TextoBoleto entonces me da
el error 4609 "La cadena es demasiado larga".

Otra cosa que probé, es que si yo le asigno en forma manual el valor de
dicha propiedad al campo en tiempo de diseño, lo puedo hacer sin problemas,
ese campo no tiene ninguna limitación en cuanto al largo máximo, supongo que
el problema viene cuando uso las variables, pero tambien probé de partir el
valor en varias variables y luego asignar la concatenación a dicho campo,
pero nada, sigo con el mismo error...

Bueno, espero que alguien pueda ayudarme, saludos


Sub FormaDePago()
Dim TextoBoleto As Variant
Dim TextoEscritura As Variant
TextoBoleto = "el treinta por ciento (30%) de tal suma, al acto de firma
del correspondiente Boleto de Compraventa, en las oficinas de ÍCONO
INMOBILIARIO O A CONVENIR, y el saldo restante del SETENTA por ciento
(%.70), a cancelarse contra los actos de escrituración y posesión
simultánea, dentro de los TREINTA (30) días de firmado el primer
instrumento"
TextoEscritura = "el ciento por ciento (100%) de tal suma, a los actos
de firma de escrituración y posesión simultánea"
If ActiveDocument.FormFields("FormaDePago").DropDown.Value = 1 Then
ActiveDocument.FormFields("TextoPago").Result = TextoBoleto
Else
ActiveDocument.FormFields("TextoPago").Result = TextoEscritura
End If
End Sub


Pablo César