vb如何把字符串的数字截取出来

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