怎么 把 text的内容分批写入到记事本中

如何 把 text的内容分批写入到记事本中
我想用VB写个程序,就是     点   了   提交按钮后     能将TEXT   中的内容   保存到记事本中,再点按钮后   TEXT   中的内容   就保存到   上一条的下一行   了,怎么实现啊?我做的就把前一   条给   覆盖了!
代码如下:


Private   Sub   ABOUT_Click(Index   As   Integer)
Form2.Show   vbModal
End   Sub

Private   Sub   Command1_Click()


pp   =   Label1.Caption   +   Text1.Text   +   Text2.Text   +   Text3.Text
Open   "e:/工作记录/gzjl.txt   "   For   Output   As   #1
Print   #1,   pp   '将你输入的字符写进文件里
Close   #1   '关闭打开的这个文件

End   Sub

Private   Sub   Command2_Click()
Text1.Text   =   " "
Text2.Text   =   " "
Text3.Text   =   " "
End   Sub

Private   Sub   Command3_Click()
Unload   Me
End   Sub

Private   Sub   EXIT_Click(Index   As   Integer)
Unload   Me
End   Sub

Private   Sub   Form_Load()
Dim   name   As   String
Dim   danwei   As   String
Dim   s   As   String

End   Sub

Private   Sub   Timer1_Timer()
Label1.Caption   =   Now()
End   Sub


只要解决问题   立即给分   ,在线等候!!!

[解决办法]
Open "e:/工作记录/gzjl.txt " For Open "e:/工作记录/gzjl.txt " For Output As #1As #1

修改Output为append