Private Sub PLC_write()
 
        Try
            ' OPC Verbindung initialisieren
            Dim ServerObj
            Dim GroupObj
            Dim ItemObj
 
            Dim Serverhandles(1) As Integer
            Dim MyValues(1) As Object
 
            ServerObj = CreateObject("OPC.Automation.1")
            ServerObj.Connect("RSLinx OPC Server")
            GroupObj = ServerObj.OPCGroups.Add("MyGroup")
            GroupObj.IsActive = True
            'GroupObj.IsSubscribed = False
 
            ' Items aufbauen
            ItemObj = GroupObj.OPCItems.AddItem("[KZW_S8]WETTER[0]", 1)
 
           ' Werte in PLC schreiben
 
            GroupObj.OPCItems.Item(1).Read()
 
            ' Initialisierung löschen 
            ItemObj = Nothing
            ServerObj.OPCGroups.RemoveAll()
            GroupObj = Nothing
            ServerObj.Disconnect()
            ServerObj = Nothing
 
            OPCServerStatuserror.Visible = False
            OPCServerStatusok.Visible = True
 
        Catch ex As Exception
 
            OPCServerStatuserror.Visible = True
            OPCServerStatusok.Visible = False
 
            MsgBox(ex.Message)
 
        Finally
 
 
        End Try
    End Sub