VB的一个小问题，帮忙解决下。

Private Sub Command1_Click()
Open "f:\1.txt " For Output As #1
Print #1, vbCrLf & "www"
Close #1
End Sub

我想每单击一次就从1.txt本身的内容加上上面这写入的内容，而不是替换掉，怎样可以实现呢

例如：上面的代码

第一次单击里新建一个1.txt，内容为　

换行

www

第二次单击时内容就改变

换行

www

换行

www

Private Sub Command1_Click()
Open "f:\1.txt " For Append As #1
Print #1, vbCrLf & "www"
Close #1
End Sub