كيف يمكن نقل ما في داخل List الى Notepad

Private Sub Command1_Click()
n = FreeFile
Open "c:test.txt" For Append As #n
For x = 0 To List1.ListCount - 1
Print #n, List1.List(x)
Next
Close #n
End Sub