在VB中是这样的，没学过VB.net，你变换一下就可以了
成都创新互联拥有网站维护技术和项目管理团队，建立的售前、实施和售后服务体系，为客户提供定制化的做网站、网站制作、网站维护、内江机房主机托管解决方案。为客户网站安全和日常运维提供整体管家式外包优质服务。我们的网站维护服务覆盖集团企业、上市公司、外企网站、商城网站开发、政府网站等各类型客户群体，为全球近1000家企业提供全方位网站维护、服务器维护解决方案。
按你说的，用用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
有问题请追问，满意请采纳！
计算溢出
1检查写入前是否对变量进行了计算操作+=*/等，如果是：
（1）检查除数与被除数是不是至少有一个不是数字，例如空值，文字，等
（2）检查除数是否为0
2声明的是数字型变量，存储并写入了文本型数据（这种情况通常会报错，提示类型不能转换）
你把替换所有非数字为空字符串,改为替换所有非数字为空格,就可以把每组数字分开了.
完整的程序如下(改动的地方见注释)
Dim bbb As String
bbb = TextBox1.Text
Dim My_str As String = Regex.Replace(bbb, "[^0-9]", " ") '这里把替换所有非数字为空字符串,改为替换所有非数字为空格
MsgBox(My_str)
方法如下：
方法一：
保留三位整数：
Dim X As Single
X = Val(InputBox("输入一个任意实数！"))
Print Format(X, "000")
保留三位小数：
Dim X As Single
X = Val(InputBox("输入一个任意实数！"))
Print Format(X, ".000")
方法二：
用Format函数，比如通过text输入，转换后在窗体打印：Private Sub Command1_Click()
n = Text1.Text
t = Format(n, "000.###")
Print t
End Sub
你用的都是vb6的代码，改成：
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符，请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
