Is this what you want?

Open "C:\MyFile.Doc" For Output As #1
For X = 0 To List1.ListCount - 1
Print #1, List1.List(X)
Next
Close #1