首先判断运行目录下有没有1.txt文件  如果有 就把第一行的数据写到文本框一    把第二行的数据写到文本框二   
如果没有1.txt文件 点击一个按钮  把文本框一的数据写到第一行  把文本框二的数据写到第二行。
通过查找资料  只写了这一点点
Private Sub Form_Load()
If Dir(App.Path & "\abc.txt") = "" Then     '判断串口文件是否存在
Command1.Visible = True                     '不存在
MsgBox ("请输入数值")


Else
'存在
Command1.Visible = False
End If