我在网上找到一个例子，有一段程序代码，如下
Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)
Dim ii As Long
For ii = 1 To 4
ItemIDsValue(ClientHandles(ii)) = ItemValues(ii) 对改变的值读入本数组
Text5(ClientHandles(ii)).Text = ItemIDsValue(ClientHandles(ii))
Next ii
End Sub
写入
Private Sub Text8_Change(Index As Integer)
Dim valuess(4) As Variant
Dim ii As Long
For ii = 1 To 4
valuess(ii) = Text8(ii).Text
MyOPCGroup.SyncWrite 4, ServerHandles, valuess, Errors
Next
End Sub
　　对OPC的写可以有同步与异步之分，对于大量的数据传输，异步是更佳的选择，但对少量的数据传输，同步表现得更好。
4、OPC连接断开。
　　OPC客户端连接后要占用服务器资源，所以如果不需要使用OPC时，必须进行OPC连接断开。断开的程序相当简单，释放资源即可。如下：
Private Sub Command2_Click()
On Error Resume Next
MyOPCGroupColl.RemoveAll ----------- 释放组和服务器对象
MyOPCServer.Disconnect
----------- 与服务器断开连接并且清除
Set MyOPCItemColl = Nothing
Set MyOPCGroup = Nothing
Set MyOPCGroupColl = Nothing
Set MyOPCServer = Nothing
Option1.Value = False 连接成功标志
End Sub

我想知道这段代码在哪里输入，不要见笑。