capito, io uso il barcode emulazione seriale quindi con la porta com e gli ho semplicemente detto di sostituire il cr con niente così non lo conta nel codice scansionato:

Dim str As String = Replace(txtbarcodeent.Text, Chr(13), "")
xtbarcodeent.Text = str