'这个当然可以，用mid 取字符串的位置长度
成都创新互联公司2013年至今，公司自成立以来始终致力于为企业提供官网建设、移动互联网业务开发（成都微信小程序、手机网站建设、重庆APP软件开发等），并且包含互联网基础服务（域名、主机服务、企业邮箱、网络营销等）应用服务；以先进完善的建站体系及不断开拓创新的精神理念，帮助企业客户实现互联网业务，严格把控项目进度与质量监控加上过硬的技术实力获得客户的一致赞誉。
Dim str As String = "16461了工有6149夺中46146好31"
Label1.Text = Mid(str, str.Length - 3, 3) '取字符串最后3位数
Label2.Text = Mid(str, 1, 3) '取字符串前面3位数
首先在代码的开头引入命名空间：
Imports System.IO
给出三个读文本文件的例子。
'直接读取所有文本
Dim fileString As String = File.ReadAllText("1.txt")
'把所有行弄进一个数组
Dim fileLines() As String = File.ReadAllLines("1.txt")
'以流的方式一行一行读取
Using fs As FileStream = File.OpenRead("1.txt") '初始化文件流
Using sr As New StreamReader(fs) '初始化流读取器
Dim lineString As String = ""
While Not sr.EndOfStream '循环直到流结束
lineString = sr.ReadLine() '读一行
'这里lineString就是每行的文件内容了。
'你可以在这里对它进行处理。
End While
End Using
End Using
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.SelectionStart = Len(TextBox1.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = TextBox1.Text
Dim p As Integer = InStrRev(s, vbCrLf)'从右侧开始查找出现回车符的位置（但位置仍从左算起）
Dim s1 As String'用于保存最后一行字符串
If p = 0 Then'若未找到回车符，则直接将整个字符串赋给S1
s1 = s
Else
s1 = Mid(s, p + 2)'若找到回车符，则截取回车符右边的部分
End If
MsgBox(s1)'显示你要找的最后一行字符串
End Sub
如果只是末尾的空行，直接用Trim方法就可以了
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行，用了Trim方法后就把后面的空行都去除了
MsgBox(str)'这里可以看到