Visual Basic - Ayuda para imprimir mas de 254 caracteres

Private Sub Command1_Click()
Dim xword As Word.Application ' Instancia a Word
Dim xRange As Range ' Rango del objeto
Dim xSelection As Find ' Búsqueda del objeto
Set xword = New Application

Dim destino$
destino = "C:\Calcuelec\formularios\mv.doc"
xWord.Documents.Add destino

' enviar imprimir en el marcador %%datos%% el RichTextBox1.Text
Set xRange = xword.ActiveDocument.Range
xRange.Find.Execute "%%datos%%", , , , , , , , , RichTextBox1.Text, True

xword.Visible = True

(Cuando el RichTextBox1 tiene mas de 254 caracteres )
( Envia este error y no puedo conseguirlo)

Error 5854 en tiempo de ejecucion:
El parametro de la cadena es demasiado largo

Muchas gracias

Alguien te ayudo con este problema.... yo necesito saber como, he intentado todo pero nada lo soluciona.

Saludos,
Marco