おれはこうした

Const Ex As String = " aBc 011 122 Z"

Private Sub Form_Load()

Debug.Print "--------------------"
Debug.Print "[" & Ex & "]"

Dim arr() As String
arr = Split(Ex, " ")

Dim var As Variant
For Each var In arr
If IsNumeric(a) Then
Debug.Print "[" & a & "]"
Exit Sub
End If
Next

End Sub