可以使用正則表達式來實現將字符串中的數字截取出來。
以下是一個示例代碼：
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，可以獲取每個數字的值。
