Nothing

Dim m As String
  m = Txt1.Text
  Open App.Path & "\abc.txt" For Output As #1
  Write #1, m
  Close #1
操作文件只能是读或写或是随机文件或是二进制文件，不能多选。

Nothing

上面的只是小问题。多看看VB的函数就可以了。