Powerpoint VisualBasic Script

Sub set()
    ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text _
        = "Strategic Planning Meeting"
End Sub