I´m using this function
---------------------------------------------------------
Public Function Request_Word(ByRef MyOPCServer As OPCAutomation.OPCServer, ByRef MyOPCGroup As String, ByRef ServerHandles() As Integer, ByRef NumberItems As Integer) As OPCItem
Dim vValue() As Integer
Dim lErrors() As Integer
Dim vQuality As Object
Dim vTimeStamp As Object
Call MyOPCServer.Connect(OPCServerType, OPCServerName)
MyOPCServer.OPCGroups.Item(MyOPCGroup).SyncRead(OP CAutomation.OPCDataSource.OPCCache, NumberItems, ServerHandles, vValue, lErrors, vQuality, vTimeStamp)'DEBUG CODE LINE
With Request_Word
.Name = MyOPCServer.OPCGroups.Item(MyOPCGroup).OPCItems.It em(1).ItemID
.Value = vValue(1)
.Quality = vQuality(1)
.TimeStamp = vTimeStamp(1)
End With
End Function
--------------------------------------------------------
But I´m having a debug on the bold code line, "ArgumentException was unhandle", "Values does not fall within the expected range"