TextRange.TrimText (PowerPoint)

Returns a TextRange object that represents the specified text minus any trailing spaces.

Dim treTrimText As TextRange
Set treTrimText = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.TrimText()