Последовательная связь внутри VB.NET

---

Привет, я пробовал так много раз , но каждый раз я получал ошибку при получении данных из последовательного порта в vb.net.Пожалуйста, помогите решить мою проблему. Заранее спасибо.

Что я уже пробовал:

Private Sub ReceivedText(ByVal [text] As String)
        'compares the ID of the creating Thread to the ID of the calling Thread
        Dim PLCdata(20) As Integer
        If Me.rtbReceived.InvokeRequired Then
            Dim x As New SetTextCallback(AddressOf ReceivedText)
            Me.Invoke(x, New Object() {(text)})
            Call StrToHex(text)
        Else
            Me.rtbReceived.Text = sHex
            ' For Me.I = 1 To 15
            'PLCdata(I) = ASC(Mid$(text, I, 1))
            'Next
        End If
    End Sub

---