Appends a string to the end of the specified text range. Returns a TextRange object that represents the appended text. When used without an argument, this method returns a zero-length string at the end of the specified range.
expression.InsertAfter(NewText)
expression Required. An expression that returns a TextRange object.
NewText Optional String. The text to be inserted. The default value is an empty string.
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