vb窗体界面创建一个文本框 text1，和两个命令按钮，默认名称，标题分别为读入数据和计算保存，

Sub txttt() On Error Resume Next Dim myfile1, mypath1 myfile1 = Dir(app.path & "\in.txt", vbNormal) If myfile1 = "in.txt" Then GoTo 50 Else Open app.path & "\in.txt" For Output As #1