Powerpoint VisualBasic Script

Sub textRange()
    ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _
        .Paragraphs(Start:=2, Length:=1).Text = "VP of Business Development"
End Sub