询问：vbcrlf&vbcrlf 作用？
Text3 = Text3 + bt(x) + vbCrLf
Do Until InStr(Text3, vbCrLf & vbCrLf) = 0
Text3 = Replace(Text3, vbCrLf & vbCrLf, vbCrLf)
vbCrLf & vbCrLf 查的是什么东西？
[解决办法]
楼主的那几条语句相关于删除空行，连续两个VBCRLF即有一个空行，Do循环用来确保所有空行均被删除
