可以使用正则表达式来实现将字符串中的数字截取出来。
以下是一个示例代码：
计算
安全
数据库
网络和加速
企业服务
Imports System.Text.RegularExpressions
Module Module1
Sub Main()
Dim input As String = "abc123def456ghi789"
Dim pattern As String = "\d+" ' 匹配一个或多个数字
Dim matches As MatchCollection = Regex.Matches(input, pattern)
For Each match As Match In matches
Console.WriteLine(match.Value)
Next
End Sub
End Module
输出结果为：
123
456
789
这里使用了Regex.Matches()方法来匹配字符串中的所有数字，并将结果存储在MatchCollection中。然后通过遍历MatchCollection，可以获取每个数字的值。
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
推荐阅读：vb含有数字的字符串,使用mid函数怎么把其中的数字截取出来
