What I want to do is take a string that is made up of words (sentences) and insert line breaks after a number of characters is reached, without breaking up any whole word of course. So if the line exceed the maximun number of characters per line, go back to the last word that fits under the limit and insert a vbCrlf, then continue on until all lines fit. I hope that makes sense.

If anyone has any example code or could point me in the right direction I would greatly appreciate it. Thanks.

Here is a function:

Public Function BreakUpLines(ByVal DataIN As String, 
Optional ByVal LineCharLimit As Long = 80) As String
    Dim p As Long
    Dim DataOUT As String
    DataOUT = ""
    Do While Len(DataIN) > 0
        p = LineCharLimit
        If Len(DataIN) > p Then
            Do While Mid(DataIN, p, 1) <> " "
                p = p - 1
            Loop
            DataOUT = DataOUT & Left(DataIN, p) & vbCrLf
            DataIN = Mid(DataIN, p + 1, Len(DataIN))
        Else
            DataOUT = DataOUT & DataIN
            DataIN = ""
        End If
    Loop
    BreakUpLines = DataOUT
End Function

Report Offensive Follow Up For Removal

Thanks, it works perfectly. Chi Happens, Im a complete newbie to any kind of programming, if you have a free minute sometime could you add some comments about the above code to help me understand how the above function works.

Thanks again.