Powerpoint VisualBasic Script

Sub addTitle()
    ActivePresentation.SlideMaster.Shapes.addTitle.TextFrame.TextRange.Text = _
        "Orientation"
End Sub