Sub OnDataChanged(ByVal RegisterCookie As Integer, ByVal TagNames As Object, _
  ByVal Values As Object, ByVal Qualities As Object, ByVal VarStates As Object, _
  ByVal Timestamps As Object, ByVal ClientCookies As Object) Implements _
  ITagSink.OnDataChanged
 
 Dim arrTagNames As String() = TagNames
 Dim arrQualities As Integer() = Qualities
 
End Sub