Extraer la parte numérica de una cadena

Rutina para extraer la parte numérica de una cadena de caracteres.

Extraer la parte numérica, es decir solo devolver los dígitos numéricos del [0]..[9], sin letras ni simbolos especiales.

Ejemplo:

? ExtraerNumeros("AA45BB111C%")

*-------------------------------------
* FUNCTION ExtraerNumeros(tcCadena)
*-------------------------------------
* Extraer la parte numerica de una cadena
* RETORNA: Caracter
* USO: ? ExtraerNumeros("A125FC023")
*-------------------------------------
FUNCTION ExtraerNumeros(tcCadena)
 RETURN CHRTRAN(tcCadena,CHRTRAN(tcCadena,"1234567890",""),"")
ENDFUNC
*-------------------------------------

Luis María Guayán