如何读入把文本文档啊 新手 努力中。。。

我来了！！！
窗体添加两个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