SyncLock sd_queue.syncroot
            _datei = sd_queue.Dequeue
        End SyncLock
        SyncLock sp_queue.syncroot
            _pfad = sp_queue.Dequeue
        End SyncLock

        Do
            Try
                Dim sr = New StreamReader(_pfad)
                test = sr.ReadLine()
                sr.close()
                Exit Do
            Catch ex As Exception
                Thread.Sleep(1000)
            End Try
        Loop

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist