list内容写入到txt

Question

在本程序下，有个，aa.txt
点击Command5，添加list里最后一行到aa.txt,如现在
list里
0行为yuio
1行为hjyuiku
点击Command5，添加hjyuiku到aa.txt
如将来
0行为yuio
1行为hjyuiku
2行为hjgjg
3行为hjgjgtyhtr
点击Command5，添加hjgjgtyht到aa.txt
这时aa.txt也应该有两行
第一行为hjyuiku
第二行为hjgjgtyht
以此类推
该怎么写

Answer 1

Private Sub Command5_Click()
    Open App.Path & "\aa.txt" For Append As #1
        Print #1, List1.List(List1.ListCount - 1)
    Close #1
End Sub

Answer 2

Private Sub Command1_Click()
    Text1.Text = List1.List(List1.ListCount - 1)
End SubPrivate Sub Form_Load()
    With List1
        .AddItem "aa"
        .AddItem "bb"
    End With
End Sub