How to insert a line break

[DomFino]

In the following code, I want to insert a line break where the & chr34 showes at the end of a line, however it is not working. Is there another way to force the text to display in multiple lines?
Thanks for your help,
Dom

With ppPres
        While Not rs.EOF
            With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
                .Shapes(1).TextFrame.TextRange.Text = "Starts This Week!  # " & rs.AbsolutePosition + 1
                .SlideShowTransition.EntryEffect = ppEffectFade
                With .Shapes(2).TextFrame.TextRange
                    .Text = CStr(rs.Fields("Fname").Value) & " " & CStr(rs.Fields("Lname").Value) & Chr(34) & _
                            CStr(rs.Fields("Customer").Value) & Chr(34) & _
                            CStr(rs.Fields("Start Date").Value) & Chr(34) & _
                            CStr(rs.Fields("SalesRep").Value) & " " & CStr(rs.Fields("Recruiter").Value)
                    .Characters.Font.Color.RGB = RGB(255, 0, 255)
                    .Characters.Font.Shadow = True
                End With
                .Shapes(1).TextFrame.TextRange.Characters.Font.Size = 50
            End With
            rs.MoveNext
        Wend
    End With

 

[PHV]

Like this ?
... & Chr(34) & vbCrLf & _

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[DomFino]

PHV,
Thank you so much. That worked like a charm.
Dom