首先判断运行目录下有没有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

我来了！！！
窗体添加两个text，一个命令按钮

主窗体代码如下：
Dim a As String, b As String    '存放到字符串的变量
Private Sub Command1_Click()
Dim Route As String
Route = App.Path & "\1.txt"    '获取运行目录
If Dir(Route) <> "" Then    '判断文件是否存在
    Open Route For Input As #1    '打开文件读出字符
    Input #1, a    '写出第一行字符串
    Text1.Text = a
    Input #1, b    '写出第二行字符串
    Text2.Text = b
    Close #1    '关闭文件
        ElseIf Text1.Text <> "" And Text2.Text <> "" Then
            Open Route For Output As #1
            Print #1, Text1.Text
            Print #1, Text2.Text
            Close #1    '关闭文件
    Else
        MsgBox "请所有文本框输入内容!", 0, "提示："
End If  '结束
End Sub

怎么还不结帖啊！我写的符合你的要求啊！！！