Dim Text As String

Text = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. " _
& "Mauris tincidunt elementum nisl. Nunc nonummy molestie est. " _
& "Cras sapien ipsum, viverra et, tincidunt eu, auctor ut, sem. " _
& "Fusce eleifend metus."

Text = InsertLineBreak(Text, 30)