Recoger numeros en string

[OMiCRoM]

perdon, me equivoqué con el nombre de la función jeje. Prueba esto:

Function extraer_num(byval texto)
Dim aux,i

i=0
aux=""
do while (i<len(texto))
i=i+1
if Isnumeric(mid(texto,i,1)) then
aux=aux&mid(texto,i,1)
End if
Loop
extraer_num=aux
End Function

%>

Un saludete