VB 删除文本中的一行回车+换行字符

用VB串口通信时，将变量a+chr（13）+chr（10）赋给OUTPUT，接收端接收到一个文本中，但最后会多出一行chr（13）+chr（10）。请问怎么去掉这一行？

后面+点东西
一般都这么写
text1.text=text1.text+chr（13）+chr（10）+a
你把换行写在最后，当然有一空行了
text文本本来还就有一空行呢，那个是没法弄掉的，写入数据后的就可以了

private function delline(strfile as string, rline as long, newfile as string, sameline as boolean) dim s as string, n as string, i as long i = 1 '//打开源文件 open strfile for input as #1 do until eof(1) line input #1, s if rline = i then '如果是指定的行数就进行下面的操作 '------------------------------------------------------ if sameline = true then '是否保持源文件行数不变(以空白字符替换这一行内容)的提示,true保持源文件的行数,false为直接删除这一行的内容 s = "" n = n & s & vbcrlf '将空字符串赋给变量n,以保持源文件的行数 ' msgbox strfile & " 文件中,第 " & rline & " 行内容" & vbcrlf & s & vbcrlf & "已经删除", vbinformation, "消息提示" end if ' s="也可以把这一行的内容改成自己需要的" '------------------------------------------------------- else '如果不是指定的行数,就将s的内容赋给变量n 以存储数据 n = n & s & vbcrlf '将s的内容赋给n 并以一个回车符号结束.... end if i = i + 1 loop close #1 '//写入新文件,如果和源文件同名则会覆盖源文件 open newfile for output as #2 print #2, n '将n变量里的数据写入新文件 close #2 end function '调用方法: '比如要把c:\1.txt 删除其中的第5行内容,并保留源文件总行数(删除的这行插入一空字符串) delline "c:\1.txt", 5, "c:\2.txt", true '删除c:\1.txt 删除里面的第一行,且不保留文件的总行数 delline "c:\1.txt", 1, "c:\1.txt", false