用WinCC做串口通讯找到下面一段代码，但是我要把这段代码放在那里？

读出读缓存器（接收数据）
以下的 VB 脚本显示了如何从接收缓存器中读出数据
Option Explicit
Function active
Dim strBuffer, strTemp
Dim objMSComm1,tagBuffer
Set objMSComm1=HMIRuntime.Screens ("Main").ScreenItems ("MSComm1")
Set tagBuffer=HMIRuntime.Tags("Buffer")
strTemp=""
If objMSComm1.PortOpen=Ture Then
'read the buffer
strTemp=CStr(objMSComm1.Input)
If strTemp<>""Then
'checking for the delimited character
If InStr(strTemp,Chr(6))Then
strBuffer=Left(strTemp,Len(strTemp)-1)
Else
strBuffer=StrTemp
End If
tagBuffer.Value =strBuffer
tagBuffer.Write
End If
End Function

相关了解……