我现在有一程序，用来输出当前时间到TXT文件中，但是为什么我每一次点击按钮，在txt中就会把上一次所记录的时间清除，而记录当前点击时间？我希望是能在txt中记录我每一次点击按钮的时间。例如我每隔一秒点击一次按钮，共点击十次，打开txt文件，一行隔一行的显示十次点击时间。如何修改呢？在哪里修改？
程序为：

Private Sub Command1_Click()
Dim a As String
a = Label1.Caption
Open "c:\1.txt" For Output As #1
Print #1, a
Close #1
End Sub

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

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

Open "c:\1.txt" For Output As #1

改为
Open "c:\1.txt" For Append As #1

output 是新建文件
append 是在已有的文件的结尾追加内容