如何令文本换行时取整个单词？

我的程序中显示文本（英文）内容时用的是下面的函数，可是每到换行的时候，程序按照单个字符计算，而不是按照整个单词显示，经常导致换行时，行末单词一半在上一行，剩下字母在下一行，请教以下函数如何修改，保证换行时程序取整个单词？
function TextChange1(Txtstring,L)
dim i,LineLen,TempString
If Trim(Txtstring)="" Then
TextChange1=""
Exit Function
End If
Tempstring=""
LineLen=0
i=1
Do While i<=Len(Txtstring)
If asc(mid(Txtstring,i,1))=13 Then
LineLen=0
TempString=TempString + "<BR>"
i=i+2
Else
If asc(mid(Txtstring,i,1))>0 Then
LineLen=LineLen+1
If LineLen=L Then
LineLen=0
If asc(mid(Txtstring,i,1))=32 Then
TempString=TempString + " " + "<BR>"
Else
TempString=TempString + mid(Txtstring,i,1) +"<BR>"
End If
ElseIf LineLen>L Then
LineLen=0
If asc(mid(Txtstring,i,1))=32 Then
TempString=TempString + "<BR>" + " "
Else
TempString=TempS

如何令文本换行时取整个单词？ WORD为什么总是在换行时把一个单词分成两部分 英文句子换行时,如有一个较长的单词正好在行末,应怎样连接表示? word换行时标点符号问题 在前行时如何换档 vb如何取文本文档每行为单位进行比较？ 如何令声音不随幻灯片换叶而停止 **文本处理问题！如何把每个单词的尾字母变成大写？急问！谢谢！！ 金山词霸取PPT单词 word中换行时怎么输入空格或下划线？