dim s() as strings=split(text1.text,vbcrlf)msgbox ubound(s)+1
查找每行中的回车换行符号vbcrlf，计算有多少个就可以了。
这个做法也行吗？
