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 到尾端的所有字符。
在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
有问题请追问，满意请采纳！
首先说一下你不明白的地方，那个rand.Next(0,
129)，其实就是产生一个随机数
Dim
rand
=
New
System.Random()
这个是产生随机数初始化的地方
方法名称：next(i，j)；功能描述：返回一个i~j之间的整数
String$(129,
0)的作用和你注释掉的地方一样，也是产生一个0-129之间的随机数
至于为什么报错，问题就多了
因为产生的值是一个随机的，而且，程序别的地方的处理我不知道，但只根据这段代码来看，这个就是个报错时候的显示信息处理，那么最好你都能明白错误信息的显示方法，提示一下，这个显示出来的内容，哪怕传进去的参数一样，在中文系统，日文系统，英文系统上显示出来的信息内容，都是不一样的
VB6的String()函数，在VB.NET中，改用 StrDup()函数，使用格式与VB6的String()函数类似：
例如：
VB6中，String(5,"*") ，是产生5个星号字符，"*****"
VB.Net中，改用 StrDup(5,"*") ，也是产生5个星号字符，"*****"