MACRO - Insertar texto al final de cada linea

Deseo implementar una macro para insertar testo al final de cada linea
de un párrafo seleccionado., tengo el código de como hacerlo al
principio que sería:



//////////////////////////////////////////////////////////////////////

Sub cadena()
Dim miRango As Range
For i = 1 To ActiveDocument.Paragraphs.Count
Set miRango = ActiveDocument.Paragraphs(i).Range
With miRango
.Start = miRango.Start

.InsertBefore "CADENA"
End With
Set miRango = Nothing
Next i
End Sub


//////////////////////////////////////////

pero no he podido ponerselo al final

si alguien me da una mano se lo agradezco


Martín