你把替换所有非数字为空字符串,改为替换所有非数字为空格,就可以把每组数字分开了.
创新互联建站专注于平凉网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供平凉营销型网站建设，平凉网站制作、平凉网页设计、平凉网站官网定制、小程序开发服务，打造平凉网络公司原创品牌,更为您提供平凉网站排名全网营销落地服务。
完整的程序如下(改动的地方见注释)
Dim bbb As String
bbb = TextBox1.Text
Dim My_str As String = Regex.Replace(bbb, "[^0-9]", " ") '这里把替换所有非数字为空字符串,改为替换所有非数字为空格
MsgBox(My_str)
计算溢出
1检查写入前是否对变量进行了计算操作+=*/等，如果是：
（1）检查除数与被除数是不是至少有一个不是数字，例如空值，文字，等
（2）检查除数是否为0
2声明的是数字型变量，存储并写入了文本型数据（这种情况通常会报错，提示类型不能转换）
可以用VB6里的函数
isnumeric()
比如要判断文本框里的内容是否数字
if isnumeric(TextBox1.text) Then
msgbox("是数字！")
else
msgbox("不是数字！")
end if
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
if IsNumeric(TextBox1.Text()) = False Then
MsgBox("内容不是数字")
End If
End Sub