extraer numeros

[dieguicho]

hola amigos alguien me ayudaria con esto?

tengo una variable masomenos asi


mivariable = "SDFDSFDFSDFSF67890GFHGFHGFHGF"

como puedo "extraerle" solo los numeros y que me quede

mivariable = 67890

eso nomas gracias y

[krypton]

Function letras(cadena)
if cadena<>"" then
For i = 1 To Len(cadena)
palabra= Mid((cadena), i, 1)
if isnumeric(palabra) then
var=var&palabra
end if
Next

end if
letras = (var)
End Function