转换文本按一定字数折叠

Private Function wrapword(str As String, CharsInOneLine As Integer, fixedLines As Integer) As String
Dim c As Integer, i As Integer
c = (Len(str) - (Len(str) Mod CharsInOneLine)) / CharsInOneLine
For i = 0 To c
    wordwrap = wordwrap & IIf(i = c, Mid(str, i * CharsInOneLine + 1), Mid(str, i * CharsInOneLine + 1, CharsInOneLine)) & vbcrlf
Next i
If fixedLines > c Then
    For i = 0 To fixedLines - c - 3
        wordwrap = wordwrap & vbcrlf
    Next i
End If
End Function