Try
            log_anfuegen("In pruefe_senden")
            If System.Threading.Monitor.TryEnter(monitorlock, 1000) Then
                log_anfuegen("hinter monitor.tryenter")
                Try
                    System.Threading.Monitor.Enter(monitorlock)
                    Try
                        If adresse = "Lesekopf_Adr_26" Then
                        End If
################################ Abarbeitung #####################
                    Catch ex As Exception
                        log_opc_anfuegen("Fehler in pruefe_senden: " & _
                          ex.Message)
                        MsgBox("Fehler in pruefe_senden!" & vbCr & ex.Message)
                    End Try
                Finally
                    System.Threading.Monitor.Exit(monitorlock)
                End Try
            Else
                log_anfuegen("Fehler Pruefe_senden: Für den Thread " & _
                  System.Threading.Thread.CurrentThread.ManagedThreadId & "" & _
                  "konnte der Monitorlock nicht durchgeführt werden bei" & _
                  "Adresse: " & adresse)
            End If
        Catch ex As Exception
            log_anfuegen("Fehler in pruefe_schluessel_senden: " & ex.Message)
            log_anfuegen("Stacktrace: " & ex.StackTrace)
            log_anfuegen(ex.InnerException.Message)
 
            st = New StackTrace(ex, True)
            log_anfuegen("Zeilennummer: " & st.GetFrame(0).GetFileLineNumber)
        End Try
 
    End Sub