I have code that I'm writing that puts slides into ppt from excel.  After
which and I'm creating an index of the pages added.  The problem is that I
usually add a lot of items so the text box I'm adding the list of items to
gets too long.  Even though I have the textbox set to wrap it still
continues.

Here is where it is built:

For Each oSld In PPApp.ActivePresentation.Slides
       ' Does the slide have title placeholder?
       If oSld.Shapes.HasTitle Then
           ' Get the reference to the title shape on the slide
           'Set oShp = oSld.Shapes.Title
            'Check if the placeholder has  any text in it.
           If oSld.Shapes.Title.TextFrame.TextRange.Text = "" Then
               oAgenda = oAgenda & _
                         " ~Slide " & oSld.SlideIndex & Chr(13)
           Else
               oAgenda = oAgenda & _
                         oSld.Shapes.Title.TextFrame.TextRange.Text &
Chr(13)
           End If
       Else
           oAgenda = oAgenda & _
                     " ~Slide " & oSld.SlideIndex & Chr(13)
       End If
a = a + 1

   Next oSld

I thought of doing something like when a = 38 then
start a new text box and continue with the building of the list..

Any ideas?