str=Microsoft.VisualBasic.Left(str,Len(str)-1)
创新互联专业为企业提供瑞金网站建设、瑞金做网站、瑞金网站设计、瑞金网站制作等企业网站建设、网页设计与制作、瑞金企业网站模板建站服务，10年瑞金做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
实际上就是VB6的Left函数，但由于命名空间的关系，要写全称。
string.SubString(string,string.Length-1)
or
string.Remove(string.Length - 1)
VB.NET编程Mid函数一般用于返回原字符串中子串，比如说：
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。
MidMidWords = Mid(MyString, 5) ' 返回 "Funcion
具体函数说明如下：返回 Variant (String)，其中包含字符串中指定数量的字符。
mid函数的语法：
Mid(string, start[, length])
mid函数的参数：
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null；
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，VB.NET Mid函数返回零长度字符串 ("")；
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。
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
'这个当然可以，用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位数