Extraer solo números

[biblio]

Por ejemplo tengo esto,
F14A125B , lo que deseo es solo obtener los números, algun comando que lo haga o tengo que to mismo realizarlo?.

Saludos

[bakanzipp]

ke te parece esta?

<pre>
While (i &lt; Len(cadena)+1)
If (IsNumeric(Mid(cadena,i,1))) Then
cadena = Left(cadena,i-1) &amp; Right(cadena,(Len(cadena)-i))
i = i - 1
End If
i = i + 1
Wend
</pre>

;)