Returning and Setting the Text in a Text Range
Sub set() ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text _ = "Strategic Planning Meeting" End Sub