Como separar un valor numerico de una variable alfanumerica!!! URGENTE!!!!

[WebDeveloperZ]

Que tal gente, como separo de una variable un numero para insertarlo en otra, es decir, tengo algo asi:

8IGNACION

y quiero separar el 8 de IGNACIO.

Saludos y gracias.!!!!

[Ana_pm]

Hola:
Tienes que leer cada caracter, y preguntar si es numerico, con IsNumeric

Espero que te valga

Saludos
Ana

[fero]

Con Val(cadena) si el string comienza con el número. Si hay números intercalados no te sirve.

Dim MiValor
MiValor = Val("2457") ' Devuelve 2457.
MiValor = Val(" 2 45 7") ' Devuelve 2457.
MiValor = Val("24 y 57") ' Devuelve 24.

[axelopez]

Var = "1ABBB2XXXX3"
ret = ""
For a = 1 To Len(Var)
Select Case Mid$(Var, a, 1)
Case "0" To "9"
ret = ret + Mid$(Var, a, 1)
End Select
Next
MsgBox Val(ret)