可以使用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
