Do While.....loop In Vbs

[marco_bart]

Salve a tutti, premetto che con la programmazione in VBS sono alle prime armi, e avrei necessità di utilizzare uno script che al click del mouse ( ad esempio)incrementi una variabile. Di seguito ho riportato la mia versione dello script che riesce sì ad implementare l'incremento di una variabile ma che però presenta il difetto di non poter controllare la variazione dell'incremento. Qualcuno ha già affrontato questo problema e potrebbe fornirmi indicazioni utili per coreggere il mio script..?

Grazie a tutti.

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)

Dim objTag

Set objTag = HMIRuntime.Tags("OPC_Excel")

Do While objTag.Value < 145

'statements

Set objTag = HMIRuntime.Tags("OPC_Excel")

objTag.Read

objTag.Value = objTag.Value + 1

objTag.Write

Loop

End Sub