[Zuhare]

كود :

   Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
       'ReceivedText(SerialPort1.ReadExisting())
       Dim r = SerialPort1.ReadExisting()
       Dim t = Regex.Match(r, ">1013[\w\d]+").Value
       t = t.Replace(vbCrLf, "").Replace(vbCr, "").Replace(vbLf, "")
       Me.RichTextBox3.Text = t
   End Sub