TEXT保存出现二行一行保存TEXT1信息`第二行是空白`怎么除去第二行空白！

Question

TEXT保存出现二行一行保存TEXT1信息`第二行是空白`怎么除去第二行空白！
Open App.Path & "\版本说明.txt" For append As #1 
Print #1, replace(text1.text,vbcrlf,"") '这里除去了回车键怎么保存到“版本说明.txt”下面还有个回车，不知道是回车还是什么```总之在“版本说明.txt”内容里有二行````一行是保存TEXT1的内容`第二行就是空白的```请问怎么才不让“版本说明.txt”里面显示二行``（也就是说不显示第二行的空白）
Close #1 '关闭打开的文件

Answer 1

Open App.Path & "\版本说明.txt" For append As #1
Print #1, text1.text;
Close #1print 有自动换行功能，要想不换行在句末加分号（;）