我一段一段的来试，就下面那点代码，好久执行的时好时坏：
Option Explicit
Function action
Dim TimeM,TimeS,Print
Dim S
Set Print=HMIRuntime.Tags("Print")
Set TimeM=HMIRuntime.Tags("TimeM")
Set TimeS=HMIRuntime.Tags("TimeS")
Print.Read
TimeM.Read
TimeS.Read
'以上三个变量均来自WinCC，其中TimeM，TimeS来自System INFO
S=Print.Value
If TimeS.Value>51 Then '这边有用TimeM=50或TimeM>50试过
S=1
MsgBox "改变啦！"
Else
S=0
End If
Print.Write s
End Function
现象：
1、有时动作在激活中，但是Print的值没有改变；
2、有时提醒Print对象不支持Write等；
3、有时保存一次代码可执行一次，弹出Msgbox；
4、有时会自动执行一次并弹出Msgbox，但是当条件不满足时Print的值还是1.
这到底是错在哪里？我都快没有信心啦。