Quindi posso togliere tranquilla tutto il blocco
codice:
If Me.RichTextBox2.InvokeRequired Then
            Dim x As New SetTextCallback(AddressOf ReceivedText)
            Me.Invoke(x, New Object() {(text)})
        Else
            Me.RichTextBox2.Text &= [text] 'append text
EndIf
e lasciare direttamente

codice:
RispostaDispositivo &= [text]
NOTA! Il dispositivo risponde in modo spezzettato, cioè invia la stringa che è composta da circa 70 lettere, divisa in 7 parti