Problema en la conversión de cadena en la llegada de datos de una báscula a vb.net

Estoy realizando un proyecto que como objetivo es obtener el pesaje de camiones de una báscula a vb.net mediante la conexión serial rs-232.
Ya logré obtener los datos pero me llegan concatenados ejemplo: en el dispositivo marca 9230 y en mi caja de texto me llega ┐+009230013└ pero cada 200 milisegundos se actualiza y me llega de esta forma: ┐+009230013└┐+009230013└┐+009230013└┐+009230013└┐+009230013└┐+009230013└┐+009230013└┐+009230013└┐+009230013└┐+009230013└┐+009230013└

Probé quitando el ampersand "&" para que ya no lo concatene pero después solo envía signos raros

Código:

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
ReceivedText(SerialPort1. ReadExisting()) Se llama automáticamente cada vez que se reciben datos en el puerto serial

End Sub

Private Sub ReceivedText(ByVal [text] As String)
Compara el ID de la creación de Thread con el ID del subproceso de llamada
If Me.rtbReceived.InvokeRequired Then
Dim x As New SetTextCallback(AddressOf ReceivedText)
Me.Invoke(x, New Object() {(text)})
Else
Me.rtbReceived.Text &= Val([text]) esta concatenado pero si lo quito solo manda signos raros
End If
End Sub

Añade tu respuesta

Haz clic para o