Writing a VBS value into a WINCC tag

I have this situation in a Global Script (Action)

v(1) is associated to “tag1” from WINCC
v(2) is associated to “tag2” from WINCC
v(3) is associated to “tag3” from WINCC

dim v(3), t(3), i,
For i= 1 to 3
If t(i) <256 Then
v(i) = 1 ‘v(i) must be writen into the appropiate WINCC tag .That means
‘v(1) to “tag1”, v(2) to “tag2”, v(3) to “tag3”.
Else

v(i)=0

End if
Next
[FONT=&quot]
How can I send the element [/FONT][FONT=&quot]of the matrix [/FONT][FONT=&quot]v(i) to the WINCC tag in this specific case?

[/FONT]

Found the answer

Option Explicit
Function action
Dim v(3),t(3),i
Set v(1) = HMIRuntime.Tags("v1")
Set v(2) = HMIRuntime.Tags("v2")
Set v(3) = HMIRuntime.Tags("v3")
t(1)=HMIRuntime.Tags("t1").read
t(2)=HMIRuntime.Tags("t2").read
t(3)=HMIRuntime.Tags("t3").read
For i = 1 To 3
If t(i)<100 Then
v(i).Value = 1
v(i).Write
Else
v(i).Value = 0
v(i).Write
End if
Next
End Function

Can you please help me 'dynamic filling' properties in wincc?
How to change the foreground and background colors of polygon using dynamic filling?