Powerpoint VisualBasic Script

Sub text()
    MsgBox ActivePresentation.Slides(1).Shapes(1).TextFrame _
        .TextRange.Words(Start:=2, Length:=4)
End Sub