Private Sub Command1_Click()
    Dim prtrun
    Dim tag0
    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)
    prtrun = WinCC.SetValue("NewTag_4", Text1(3).Text)
    prtrun = WinCC.SetValue("NewTag_5", Text1(4).Text)
    prtrun = WinCC.SetValue("NewTag_6", Text1(5).Text)
    prtrun = WinCC.SetValue("NewTag_7", Text1(6).Text)
    prtrun = WinCC.SetValue("NewTag_8", Text1(7).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
End Sub

感觉VB这样读写WINCC变量比较简单

代码来自http://blog.sina.com.cn/s/blog_669692a60101a7n7.html