27/06/2007, 11:11
|
| | | Fecha de Ingreso: junio-2007
Mensajes: 6
Antigüedad: 18 años Puntos: 0 | |
| Re: Como separar un valor numerico de una variable alfanumerica!!! URGENTE!!!!
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) |