Extraer números VBA - Ejemplo con Tipo de cambio

Ejemplo: Se desea extraer el valor del tipo de cambio Yen-Dólar de una base de datos que tiene la información con su valor y simbologia. Para esto creamos una función "Extraer_num" que nos permitira extraer el valor   incluyendo el punto decimal al poner en el número 2 en vez de 1 en  If IsNumeric(Mid(cadena, i, 2)). Finalmente redondeamos el valor en un decimal.

VBA_Extraer numero

Function Extraer_num(cadena As String)

'Variable numeros contendrá solo números de la cadena

Dim numeros As String
numeros = ""
'Recorrer la cadena

For i = 1 To Len(cadena)

'Evaluar SI el carácter actual es un número
If IsNumeric(Mid(cadena, i, 2)) Then

'Concatenar valor numérico a la variable numeros
numeros = numeros & Mid(cadena, i, 1)

End If
Next

'Devolver los números encontrados
Extraer_num = Round(numeros, 1)

End Function