Dim objSet obj = HMIRuntime.Tags("变量")obj.readIf obj.Value ThenIf MsgBox("确定要运行后续步?",vbYesNo,"二次确认") =6 Thenobj.readobj.Value = 0obj.WriteEnd IfElseEnd IfEnd Sub