‘第一种
创新互联专注于企业营销型网站建设、网站重做改版、拉萨网站定制设计、自适应品牌网站建设、H5响应式网站、成都做商城网站、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为拉萨等各大城市提供网站开发制作服务。
Dim a As String = IO.Path.GetDirectoryName("D:\项目\0913 \test.text") "\" IO.Path.GetFileNameWithoutExtension("D:\项目\0913 \test.text")
’第二种
Dim a1() As String = Split("D:\项目\0913 \test.text", ".") '以.分割内容
'a1(0)为需要获取的字符串，路径中不能存在两个点或以上
‘第三种
Dim a2 As String = "D:\项目\0913 \test.text"
a2 = a2.Substring(0, a2.Length - 5) '扩展名长度固定，路径中可以存在多个点
' a2 = a2.Substring(0, InStr(a2, ".") - 1) '不知扩展名的长度，路径中不能存在多个点
’如果必要，建议用第一种，不受任何限制
就是取字符串的意思，例如mid("abcdefg"2,3)意思就是从第二个字符开始向右取3个，结果就是（bcd）
VB内部采用Unicode编码，在这种编码格式下，任何字符（包括半角的字母、数字、符号以及全角的汉字、符号）都是占用两个字节的。因此，Len("1111徐")的返回值是5，表示5个字符，而LenB("1111徐")的返回值是10，表示占用10个字节。
要想按ANSI编码格式来获取字符串的字节数，必须这样：
LenB(StrConv("1111徐", vbFromUnicode))
要注意哦，虽然返回值是6，但这个数与这个字符串在内存中的实际占用字节数是不相符的哦！
两位就是从指定位到字符串末尾
比如
s="hello"
mid(s,3)就是"llo"
mid(s,4)就是"lo"
逐字消失的话
就是第二个参数从1逐渐增大到字符串长度吧
在VB中是这样的，没学过VB.net，你变换一下就可以了
按你说的，用用Left,Right和Mid
Option Explicit
Private Sub Command1_Click()
Dim Num(2)
Num(0) = Val(Left(Label1.Caption, 2))
Num(1) = Val(Mid(Label1.Caption, 3, 1))
Num(2) = Val(Right(Label1.Caption, 2))
MsgBox "Num(0)=" Num(0) vbCrLf "Num(1)=" Num(1) vbCrLf "Num(2)=" Num(2)
'如果想测试是不是可以计算，可以用这一句
'MsgBox "Num(0)+1=" Num(0) + 1 vbCrLf "Num(1)+1=" Num(1) + 1 vbCrLf "Num(2)+1=" Num(2) + 1
End Sub
Private Sub Form_Load()
Label1.Caption = "12345"
End Sub
有问题请追问，满意请采纳！
Mid是Visual Basic和Microsoft Excel中的一个字符串函数，作用是从一个字符串中截取出指定数量的字符。
VB中
Mid(String As Variant, Start As Long, [Length As Variant]) As Variant
Mid$(String As String, Start As Long, [Length As Variant]) As String
Excel中
MID(text, start_num, num_chars)
说明：这个函数的3个参数各在VB和Excel中互相等价，但VB中的Length参数可以省略，而Excel中num_chars参数不可省略。
参数列表
Mid函数参数
说明：当Start（start_num）参数小于1时，函数返回一个错误；当Strat参数值大于String（text）参数长度时，返回一空字符串；若从Start参数起截取长度超出字符串末尾，或Length参数被省略，则返回Start参数位置到字符串结尾的所有字符。
VB中的Mid和Mid$两种写法在用法上没有区别。
要得到字符串的长度，可以使用Len函数。
VB和Excel中都有MidB函数，与Mid不同，它是以字节为单位进行字符串截取的，同时，可以用LenB函数得到字符串的字节数。
范例：下面的示例展示了VB中如何使用Mid函数。其中所有的“Mid”都可以用“Mid$”代替。
