VB 把listbox中的内容存到磁盘指定文件中 txt格式

单击按钮，将listbox中的内容写成文件，并保存。具体代码怎么写？
全部
要一条打完再重新起一行打印该怎么办？
每一条占一行
麻烦写一下代码注释

Private Sub Form_Load()
ReDim a(List1.ListCount - 1) As String
'定义变量a，用来存储listbox的list
Dim i As Integer, k As String
For i = 0 To UBound(a)
a(i) = List1.List(i)
'将list全部存储到a()中
Next i
k = Join(a(), vbCrLf)
'将a()的以回车为分隔符保存到k中
Open "c:\ssss1.txt" For Output As #1
Print #1, k
Close #1
'输出k
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/28p2844s.html