InsertAfter Method Example

This example appends the string ": Test version" to the end of the title on slide one in the active presentation.

With Application.ActivePresentation.Slides(1).Shapes(1)
    .TextFrame.TextRange.InsertAfter ": Test version"
End With

This example appends the contents of the Clipboard to the end of the title on slide one.

Application.ActivePresentation.Slides(1).Shapes(1).TextFrame _
    .TextRange.InsertAfter.Paste