'这个当然可以，用mid 取字符串的位置长度
创新互联公司专注于解放网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供解放营销型网站建设，解放网站制作、解放网页设计、解放网站官网定制、小程序定制开发服务，打造解放网络公司原创品牌,更为您提供解放网站排名全网营销落地服务。
Dim str As String = "16461了工有6149夺中46146好31"
Label1.Text = Mid(str, str.Length - 3, 3) '取字符串最后3位数
Label2.Text = Mid(str, 1, 3) '取字符串前面3位数
有些文本中的换行符不一定是vbCrLf，也有可能是vbCr或vbLf，你可以这样试试：
a = split(textbox1.text, vbcr)
或
a = split(textbox1.text, vblf)
你没有写清楚是VB.NET还是ASP.NET或者其他。。。所以我说不清，但是如果是VB.NET的话，那就是这个（ASP.NET我没学，所以不清楚）： right(Text1.text,3)
Right(string, length)
Right 函数的语法具有下面的命名参数：
部分 说明
string 必要参数。字符串表达式，从中最右边的字符将被返回。如果 string 包含 Null，将返回 Null。
length 必要参数；为 Variant (Long)。为数值表达式，指出想返回多少字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。