如果只是末尾的空行，直接用Trim方法就可以了
十载的河东网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整河东建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联公司从事“河东网站设计”,“河东网站推广”以来，每个客户项目都认真落实执行。
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行，用了Trim方法后就把后面的空行都去除了
MsgBox(str)'这里可以看到
假定要处理的字符串放在变量s中：
s = Replace(Replace(s, vbCr, ""), vbLf, "")
你是要把连续多个空格，变换成只需要一个空格，那么：
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop
Dim newfile As New List(Of String)
For Each line As String In System.IO.File.ReadAllLines("TextFile1.txt")
If Not line.StartsWith("3") Then newfile.Add(line)
Next
System.IO.File.WriteAllLines("TextFile1.txt", newfile)
建个集合，用System.IO.File的ReadAllLines读出所有内容，逐个判断，如果是需要的加入集合，如果是要删除的什么都不做，最后用WriteAllLines写入即可。
这里说明一下，上面那个代码是用来删除所有以3开头的文本行。
查找第一个vbcrlf 即回车换行符的位置 ，再把该位置及前面的字符全部删除 即可
可以用 instr 好像在字符strings类里面
j=strings.instr(1,richtextbox1.text,vbcrlf)
richtextbox1.text=strings.right(richtextbox1.text,len(richtextbox1.text)-j)
这里不记得是strings 还是string 你自己试试
Private Sub Command1_Click()
Dim a$, b$
Open "c:\1.txt" For Input As #1 '假设你的文本文件叫1.txt,在C盘
Do While Not EOF(1)
Line Input #1, a
b = b a
Loop
Close #1
Print b '得到的数放在变量b里面,没有换行的.只有数字. 不知道你是这个意思吧
End Sub