VBA 2003 - 2010 konvertering

Har i power point (2003) anvendt nedenstående VBA-kode/macro (uddrag) til opdatering af indholdsfortegnelse i præsentationer med følgende resultat (eksempel - med "Sektion x" i fed skrift):
Sektion 1 Indledning
Sektion 2 Opsummering
osv.

Nedenstående uddrag af makroen fungerer desværre ikke fejlfrit i 2010-versionen.
Udfordringen er 1) manglende linjeskift, og 2) manglende fed skrift på "Section" efter første gennemløb af nedenstående...

If s.Design.Name = "New Section" Then
      If Not bSection Then
        s.Design = ActivePresentation.Designs("New Appendix")
        MsgBox ("New section converted to new appendix on page " & CStr(iSlide))
      Else
        iSection = iSection + 1
        s.Shapes("Rectangle 3").TextFrame.TextRange.Text = CStr(iSection)
       
        tTitle = s.Shapes("Rectangle 2").TextFrame.TextRange.Text
        tFullTitle = StrConv(tTitle, vbUpperCase)
        If bContents Then
          iStart = 2 - iSection + Len(ActivePresentation.Slides(iContents).Shapes("Rectangle 3").TextFrame.TextRange.Text)
          ActivePresentation.Slides(iContents).Shapes("Rectangle 3").TextFrame.TextRange.Characters(Start:=iStart, Length:=0).Text = tSection + CStr(iSection) + Chr$(CharCode:=9)
          iStart = 2 - iSection + Len(ActivePresentation.Slides(iContents).Shapes("Rectangle 3").TextFrame.TextRange.Text)
          ActivePresentation.Slides(iContents).Shapes("Rectangle 3").TextFrame.TextRange.Characters(Start:=iStart, Length:=0).Text = tTitle + Chr$(CharCode:=13)
          iLength = Len(tTitle)
          ActivePresentation.Slides(iContents).Shapes("Rectangle 3").TextFrame.TextRange.Characters(Start:=iStart, Length:=iLength).Font.Bold = msoFalse
        End If
      End If
    End If