可以使用正则表达式来实现将字符串中的数字截取出来。
以下是一个示例代码：
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，可以获取每个数字的值。
