Comunicaciones - Mscomm de visual Basic

Dese recuperar información desde el puerto serie con el objeto mscomm de visula basic, en este momento lo logro hacer pero recupero a parte del dato basura o el dato incompleto, se trata de una balanza que indoica valores de peso, y me pasa que a veces recupero 1450.00 KG y luego 450.00 Kg y sin que el visor del peso haya cambiado de 1450.00, no se qu puede pasar, si alguien tiene una rutina para este objeto que recupere los datos simn problemos le estare agradecido
Guido Desde Chile.

Quizá esta rutina se puede ayudar...

Private Sub MSComm1_OnComm()
Dim i As Integer
Dim Valor As String

'recoge el valor de entrada
Valor = MSComm1.Input
'busca la posicion del caracter de salto de linea
i = InStr(Valor, Chr(13))

'si no hay ningun salto de linea, quiere decir que la informacion que recibe
'es parte de una cadena recibida con anterioridad.
If i = 0 Then
cadena5 = cadena5 & Valor
Else

cadena5 = cadena5 & Left(Valor, i - 1)
Text2.Text = Text2.Text & vbCrLf & cadena5
Text2.SelStart = Len(Text2.Text)
cadena5= " "
End If