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

　　Dim fso,File

　　Dim a

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

　　Const ForWriting = 2 

　　Set fso = CreateObject("Scripting.FileSystemObject") 

　　Set File = fso.OpenTextFile("D:\Export&Import\"&CStr(a)&".txt", ForWriting, True) 

　　File.WriteLine(HMIRuntime.Tags("Var_1").read) 

　　File.WriteLine(HMIRuntime.Tags("Var_2").read) 

　　File.WriteLine(HMIRuntime.Tags("Var_3").read) 

　　File.WriteLine(HMIRuntime.Tags("Var_4").read) 

　　File.WriteLine(HMIRuntime.Tags("Var_5").read) 

　　File.Close 

　　MsgBox "文件已经成功导出/Export Successful"

　　End Sub