求助，小白，请教大虾，command事件多次计算结果，如何存入数组，方便引用导出



Private Sub Command1_Click()
  k = k + 1
  Text1.Text = k
  ReDim sz(k)
  sz(k) = k
  Open "my.txt" For Output As #1
  Print #1, sz(k)
  Close #1
  End Sub
这段程序结果是text文本只显示单击后的结果

理想结果是，在text文本中显示单击一次，数组sz（1）=1显示1；单击第二次sz（1）=1，sz（2）=2显示1,2