Private Sub subname(......) Handles myComPort.DataReceived

Me.myComPort.DiscardInBuffer()
antwort = MsgBox("Klicken Sie auf OK und betätigen Sie den Schalter.", _
vbOKCancel + vbInformation, "Achtung")
'Mit dem Betätigen des Schalters wird der Serialportbuffer mit Daten gefüllt.
If antwort = vbOK Then
    Dim buffer(14) As Byte
    Dim j As Integer = 0
    For j = 0 To 13
         buffer(j) = Me.myComPort.BaseStream.ReadByte
    Next
End if

Private Delegate Sub DelegateSub()
Private bufferlesen As New DelegateSub(AddressOf bufferlesen_sub)

Me.Invoke(bufferlesen)

Private Sub bufferlesen_sub()
     Dim j As Integer = 0
     For j = 0 To 13
          bufferglobal(j) = Me.myComPort.BaseStream.ReadByte
          'bufferglobal(j) ist global dimensioniert, weil ich die Werte in 
          ' einem anderen Sub verarbeiten möchte
     Next
End Sub