vb MSFlexGrid保存导入改List保存导入

Private Sub Command46_Click()
Dim i As Integer, j As Integer

Screen.MousePointer = vbHourglass

CommonDialog1.Filter = "文本文件（*.txt）"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
If Dir(CommonDialog1.FileName) <> vbNullString Then
If MsgBox("原文件存在，是否覆盖？", vbYesNo, "提示框") = vbYes Then
Kill CommonDialog1.FileName
Else
Exit Sub
End If
End If

Open CommonDialog1.FileName For Output As 1

For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
Print #1, MSFlexGrid1.TextMatrix(i, j); IIf(j = MSFlexGrid1.Cols - 1, "", ",");
Next
If i < MSFlexGrid1.Rows - 1 Then Print #1,
Next
Close
End If
Screen.MousePointer = vbDefault
End Sub
改成保存List2里数据的该怎么改，也就是保存List所有行的数据
下面是MSFlexGrid1的导入，又如何改成List，也就是说可以导入上面list保存的

Private

vb MSFlexGrid控件 vb msflexgrid行号 vb 里data控件与MsflexGrid怎么实现查询,在保存， 关于vb中msflexgrid显示 vb中msflexgrid是个什么控件? VB中msflexgrid如何加鼠标滚动？ vb msflexgrid如何按列排序 如何向vb MSFlexGrid控件添加数据？ 急问：vb中MSHFlexGrid与MSFlexGrid的区别 一个VB中MSFlexGrid合并相同数据问题