请教一下wincc问题

wincc脚本 想实现的功能：
如果in1=1，传送数字1到“step”
如果in2=1，传送数字2到“step”
如果in3=1，传送数字3到“step”

按以下编写，inx=1时，step一直=0
---------
Dim in1, in2, in3，step

in1 = HMIRuntime.Tags("in1").Read
in2 = HMIRuntime.Tags("in2").Read
in3 = HMIRuntime.Tags("in3").Read

If in1 = 1 Then
HMIRuntime.Tags("step").Write 1
ElseIf in2 = 1 Then
HMIRuntime.Tags("step").Write 2
ElseIf in3 = 1 Then
HMIRuntime.Tags("step").Write 3
End If