Dim rx_buf_1(), rx_buf_2() As Byte
.
.
.
 Static Device As Integer = 0
 
        If Device = 0 Then
            If myQueue_1.Count > number_of_bytes Then '8 bytes is the 
            ' expected data stream
                SyncLock myQueue_1
                    ' rx_buf_1.Clear()
                    For cnt As Integer = 0 To (number_of_bytes - 1)
                        rx_buf_1(cnt) = myQueue_1.Dequeue
                    Next
                End SyncLock
            End If
            'write_to_excel(0, rx_buf_1)
            write_to_excel(rx_buf_1) '!!! Übergabe
 
            Device = 1
        Else
.
.
.
 
Sub write_to_excel(ByVal buf() As Byte)
.
.
cnt = (buf.Length) 'HIER der Fehler
.
.