帮我写一个西门子WINCC VBS脚本，要求如下

帮我写一个西门子WINCC VBS脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、鼠标单击按钮时，弹窗打开D盘根目录下"data.txt"文件
3、WINCC是7.5版本

以下是符合要求的WINCC VBS脚本：[code]
Button1_OnClick()    \\\\\\\'弹窗选择文件    Dim fso, filePath    Set fso = CreateObject(\\\\\\\"Scripting.FileSystemObject\\\\\\\")    filePath = InputBox(\\\\\\\"请输入文件路径：\\\\\\\")        If filePath = \\\\\\\"\\\\\\\" Then        Exit Sub    End If        \\\\\\\'打开文件    Dim file    Set file = fso.OpenTextFile(filePath, 1)        file.Close    Set file = Nothing    Set fso = NothingEnd Sub
[/code]将以上代码复制到按钮组态事件的VB脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。运行此脚本时，会弹窗提示输入文件路径，请输入D盘根目录下的\\\"data.txt\\\"文件的路径，并点击确定打开文件。