Gracias por la respuesta Adler, al final desesperado lo hice a la vieja usanza:
Código:
DIM LETRA
DIM CLAVENUMERICA
DIM I
FOR I=1 TO LEN(CLAVE)
LETRA=MID(CLAVE,I,1)
IF ASC(LETRA) > 47 AND ASC(LETRA) < 58 THEN
CLAVENUMERICA = CLAVENUMERICA & LETRA
END IF
NEXT
MSGBOX(CLAVENUMERICA)
No resultó tan complicado, pero ya se sabe si el arbol no te deja ver el bosque...
Gracias de todos modos