请教VB如何在文档中换行保存信息

Question

我写了一个类似于花名册的程序，需要读取一个文档。文档中有对应的4行，分别代表着姓名，性别，班级，学号。之前通过文档输入进去的信息都是一行一行的。按照这样的格式：
张三
男
五班
1003
李四
女
1007
六班

但是在我写的一段往里边输入信息的程序时，比如又写了个王五，保存时用这个代码
Open "D:\Personal\我的文档\花名册.txt" For Append As #1
能够正常保存，却在文档中保存的是这样的一个顺序：
张三
男
五班
1003
李四
女
1007
六班王五 （王五的信息紧接着李四就保存了）
男
1008
六班

这样的信息顺序很容易导致我其他部分产生错误，所以请教各位高手，能否在保存信息时加一些代码，可以保存为最开始的那种严格的一行一行的效果。
恩，先感谢几位的回答。可能我刚才没有说清楚，这是一个这样的程序，有1组text框，为text1(0)--text1(3)，向这四个框里输入数据。然后达到刚才所要的结果。我感觉问题出在这个地方：
Open "D:\Personal\我的文档\花名册.txt" For Append As #1
For i = 0 To 3
Print #1, Text1(i).Text
Next i

1L的朋友的方法的确换行了，但是接下来所有的数据都换行了，都是隔一行一个的。
2L的朋友方法稍微麻烦些，要重新声明变量，不过效果与1L的是一样的。效果是这样的，不太对劲：

asfasf

cxvxcv

246236

1asf

Answer 1

你可以先加一个判断：
dim r as string
Open "D:\Personal\我的文档\花名册.txt" For input As #1
do while not eof(1)
line input #1,r
loop
close #1
Open "D:\Personal\我的文档\花名册.txt" For Append As #1
if r<>"" then print #1,
For i = 0 To 3
Print #1, Text1(i).Text
Next i
这样写，可以判断文档最后是否有一空行，如果没有。就加上，因而可以保证每行都有回车。

Answer 2

在保存的那个字符串，也就是：
“
王五 （王五的信息紧接着李四就保存了）
男
1008
六班
”
它的前面加 VBcrlf（换行）

也就是说：print #1 , vbcrlf & text1.text & text2.text & text3.text & text4.text

以上，代码已更新。

Answer 3

nl=chr(13)&chr(10)
x="张三" & nl & "男"......
chr(13)&chr(10)是回车符，要记住的哦！
chr(34)是“"”