Recepción de datos MSComm

tengo problemas para recibir datos con vb6 utilizo el siguiente código

Private Sub MSComm2_OnComm()
Dim pr As Integer
Dim ju As String
pr = MSComm2.InBufferCount
MSComm2.RThreshold = pr
If (MSComm2.CommEvent = comEvReceive) And (MSComm2.InBufferCount > 0) Then
ju = MSComm2.Input
Text1.Text = Text1.Text + "User2" + " dijo (" & Time & ")" & vbCrLf & ju & vbCrLf & vbCrLf
End If
End Sub

avece me recibe el texto completo, y aveces no recibe nada pero se guarda el dato y aveces me recibe solo una parte y me sale lo que le faltaba al anterior

Private Sub MSComm2_OnComm()
Dim por As Integer
Dim ju As String
pr = MSComm2.InBufferCount
MSComm2.RThreshold = pr
If (MSComm2.InBufferCount > 0) Then
ju = MSComm2.Input
Text1.Text = Text1.Text + "User2" + " dijo (" & Time & ")" & vbCrLf & ju & vbCrLf & vbCrLf
End If
End Sub

este aveces recibe todo y aveces recibe el anterior y el que le mande siempre recibe

cuando pongo un botón rojo en la linea de ju para verificar que llego todo el dato ay esta luego le doy play y esta todo

que puedo hacer para que siempre este todo el texto , de antemano muchas gracias