继续学习wincc下VBA编程，这一篇练习批量修改变量的连接地址，就使用前面一篇创建的10个变量，假设这些变量的地址都是有规律的。

新建下面的脚本：

Sub ChangeTagAddress()

Dim hmigo As hmigo
Dim strTagName As String
Dim i As Integer
Set hmigo = New hmigo
For i = 1 To 10
strTagName = "Real" & CStr(i)
strAddress = "DB2.DD" & CStr((i - 1) * 4)
hmigo.GetTag strTagName
hmigo.TagS7S5Address = strAddress
hmigo.CommitTag
Next
Set hmigo = Nothing
End Sub

上面的脚本将REAL1至REAL10连接PLC的地址批量进行修改。