Extraer caracteres numéricos de celda

Hola.

Si tenemos la necesidad de extraer los números de una celda que está computas por números y letras como el siguiente ejemplo:

Lo que debemos hacer es crear la siguiente función:

Public Function ExtraeNumeros(celda)
   Dim n As Long, c As String, r As String
   For n = 1 To Len(celda)
      c = Mid(celda, n, 1)
      Select Case c
      Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
         r = r & c
      End Select
   Next
   ExtraeNumeros = r
End Function

Quedando de la siguiente manera:

Saludos

Juan A.