Dim prtrun
Dim WinCC As Object '定义wincc为对象
Set WinCC = CreateObject("WinCC-Runtime-Project")
prtrun = WinCC.SetValue("NewTag_1", Text1(0).Text)
prtrun = WinCC.SetValue("NewTag_2", Text1(1).Text)
prtrun = WinCC.SetValue("NewTag_3", Text1(2).Text)
'先写入一个值，再读回它,判断有没有写进去,由此来判断WINCC是不是在运行之中
prtrun = WinCC.GetValue("NewTag_1")
If prtrun = 111 Then
MsgBox ("与WinCC通讯成功！")
Set WinCC = Nothing
Else
MsgBox ("与WinCC通讯失败！请将WinCC设置为运行状态！")
Set WinCC = Nothing
End If