可以使用Mid函數結合IsNumeric函數來截取字符串中的數字。具體步驟如下：
使用Mid函數截取字符串的每一個字符，然后使用IsNumeric函數判斷該字符是否為數字。
如果字符是數字，則將其添加到一個新的字符串中。
重復步驟1和步驟2，直到遍歷完整個字符串。
返回新的字符串，即為截取出的數字。
下面是一個示例代碼：
Function GetNumbersFromString(ByVal str As String) As String
Dim result As String
Dim i As Integer
For i = 1 To Len(str)
Dim char As String
char = Mid(str, i, 1)
If IsNumeric(char) Then
result = result & char
End If
Next i
GetNumbersFromString = result
End Function
你可以使用該函數來截取字符串中的數字。例如：
Dim str As String
str = "abc123def456"
Dim numbers As String
numbers = GetNumbersFromString(str)
MsgBox numbers ' 輸出：123456
