Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems _
  As Long, ByVal ClientHandles() As Long, ByVal ItemValues() As Object, ByVal _
  Qualities() As Long, ByVal TimeStamps() As Date)
 
 MsgBox("Test")' nur zum Testen ob die Methode aufgerufen wird!
 
 
End Sub