textbox1.text=io.file.readalltext(Application.StartupPath() "\file\t1.txt",System.Text.Encoding.Default).replace(vbcr,"").replace(vblf,"")
创新互联从2013年成立，是专业互联网技术服务公司，拥有项目网站设计、成都网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元保靖做网站,已为上家服务,为保靖各地企业和个人服务,联系电话:028-86922220
全部读取，不分行，已经删除vbcrlf换行符。
==我好像看错题目了。
textbox开启多行（multiline）就可以多行显示，按行读取是不会读取换行符的。
textbox1.text=io.file.readalltext(Application.StartupPath() "\file\t1.txt",System.Text.Encoding.Default)
有些文本中的换行符不一定是vbCrLf，也有可能是vbCr或vbLf，你可以这样试试：
a = split(textbox1.text, vbcr)
或
a = split(textbox1.text, vblf)
可以用chr函数或者vbCrLf这种表示
chr(10)：换行，相当于vbLf
chr(13)：回车，相当于vbCr
chr(13)+chr(10):回车+换行，相当于vbCrLf
