解决了，把 fr.Write(vbCrLf) 改成 fr.Write(CByte(vbCrLf))即可。
创新互联公司于2013年开始，是专业互联网技术服务公司，拥有项目网站制作、网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元六枝做网站,已为上家服务,为六枝各地企业和个人服务,联系电话:13518219792
牛，为使用二进制的程序员鼓掌！
从来没用过的人问：为什么要用二进制啊，有啥好处？
如果是简单的换行用vbcrlf 或 environment.newline
要获得键盘的回车键用api 的
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
可以用chr函数或者vbCrLf这种表示
chr(10)：换行，相当于vbLf
chr(13)：回车，相当于vbCr
chr(13)+chr(10):回车+换行，相当于vbCrLf