[VB6] badge e porta seriale

[RaouL_BennetH]

altro piccolo progresso:

Private Sub MSComm1_OnComm()
Dim Ricevi
Ricevi = MSComm1.Input
If Len(Ricevi) Then
   Text1.Text = Text1.Text & Ricevi & (Now)
   End If
   
End Sub

però, mi si sballa qualcosa perchè leggo la stringa del badge e l'orario in maniera ripetuta:

La tessera ha il codice 0001, guardate cosa mi vien fuori nella textbox:

CODICE29/11/2004 0.54.29 LETTO -29/11/2004 0.54.29>0001<-
29/11/2004 0.54.29
29/11/2004 0.54.29

non capisco