Das liegt daran das du nicht zeichzenweise ließt.

Option Explicit

Sub Bsp()
  
  Dim expr As String
  Dim temp As String
  Dim c As String
  Dim i As Integer
  
  expr = "123ab456"
  
'  temp = ""
  For i = 1 To Len(expr)
    c = Mid$(expr, i, 1)
    If IsNumeric(c) Then
      temp = temp & c
    End If
  Next
  
  Call MsgBox(temp)
  
End Sub

Damit beachtest du nur die Ziffern im Text, alles andere wird übersprungen / ignoriert.