If Dir(Text1.Text, vbDirectory) <> "" Then
        i = FreeFile
        Open Text1.Text For Input As #i
        Do While Not EOF(i)
            Line Input #i, a
            DoEvents
        Loop
        Close #i
    End If
 
    If a = Text2.Text Then
        Form3.Show
    Else
        MsgBox ("不存在！")
    End If