看看这样能不能解决，用VB建立一个ActiveX EXE，把这个控件对象传递给这个EXE，在EXE里执行这个方法并返回相关数据，把返回的字符串通过字符串变量返回给一个变体
在VB里建立ActiveX EXE工程，工程名Test，为Class1添加过程
Public Function GetResponse(obj As Variant, Response As Variant, command As String) As Boolean
Dim strResponse As String
GetResponse = obj.GetResponse(strResponse, command)
Response = strResponse
End Function

在WinCC的VB脚本里这样执行
Dim controlobj
Set controlobj = CreateObject("Test.Class1")

lngvalue=controlobj.GerResponse(Ptalk,Response,"I109")