OLE简单点啊！不要搞那么复杂啊！
定义API函数读取你计算机的名字：
Private Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long


OLE方式读取WINCC的变量的数据：
Dim ComputerName As String, i As Long
i = 255
Dim wincc As Object
ComputerName = String(i, 0)
GetComputerName ComputerName, i
ComputerName = Left(ComputerName, i)
Set wincc = CreateObject("WinCC-Runtime-Project", ComputerName)
Text1.Text = wincc.GetValue("A")
Text2.Text = wincc.GetValue("B")
SetValue()方法是写数据。
顺便给个例子你看看：
点击此处查看附件