回车符是两个字符的组合,你把他们替换成空就可以了
Dim a As String
a = text3.Text
a = Replace(a, Chr(10) + Chr(13), "")
text3.Text=a
text3.text=replace(text3.text,vbcr,"")
text3.text=replace(text3.text,vblf,"")
连续执行以上两句就行了
Trim(Replace(Replace(txtcBarCode.Text, Chr(13), ""), Chr(10), ""))