Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) 

　　Dim fso 

　　Dim txtfile 

　　Dim a

　　a=HMIRuntime.Tags("FileName").Read

　　Set fso = CreateObject("scripting.filesystemobject") 

　　If fso.FileExists("D:\\Export&Import\\"&CStr(a)&".txt") Then

　　 Set txtfile = fso.OpenTextFile("D:\\Export&Import\\"&CStr(a)&".txt")

　　 HMIRuntime.Tags("Var_1").Write txtfile.ReadLine

　　 HMIRuntime.Tags("Var_2").Write txtfile.ReadLine

　　 HMIRuntime.Tags("Var_3").Write txtfile.ReadLine

　　 HMIRuntime.Tags("Var_4").Write txtfile.ReadLine

　　 HMIRuntime.Tags("Var_5").Write txtfile.ReadLine

　　 MsgBox "导入数据成功/Import Successful"

　　 txtfile.Close

　　Else

　　 MsgBox "文件不存在/File is not existing"

　　End if

　　End Sub