HMIRuntime.Tags("Tag1").Write 6
'-----------------------------------------------
Dim objTag
Set objTag = HMIRuntime.Tags("Tag1")
objTag.Write 7

'----------------------------------------------
Dim objTag
Set objTag = HMIRuntime.Tags("Tag1")
objTag.Read
objTag.Value = objTag.Value + 1
objTag.Write
'----------------------------------------------
Dim objTag
Set objTag = HMIRuntime.Tags("Tag1")
objTag.Write 8,1

or

'VBS132

Dim objTag
Set objTag = HMIRuntime.Tags("Tag1")
objTag.Value = 8
objTag.Write ,1