Envirement.NewLine ;
站在用户的角度思考问题，与客户深入沟通，找到安源网站设计与安源网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都网站制作、成都做网站、企业官网、英文网站、手机端网站、网站推广、申请域名、网站空间、企业邮箱。业务覆盖安源地区。
dim s as string;
s = '天晴了哇'
s += Envirement.NewLine; ' or s += chr(13) ' s = s+"\n"
// 似乎用环境类的 NewLine兼容性较强些
可以用chr函数或者vbCrLf这种表示
chr(10)：换行，相当于vbLf
chr(13)：回车，相当于vbCr
chr(13)+chr(10):回车+换行，相当于vbCrLf
解决了，把 fr.Write(vbCrLf) 改成 fr.Write(CByte(vbCrLf))即可。
牛，为使用二进制的程序员鼓掌！
从来没用过的人问：为什么要用二进制啊，有啥好处？
如果是简单的换行用vbcrlf 或 environment.newline
要获得键盘的回车键用api 的
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer