12/04/2004, 10:29
|
| | | Fecha de Ingreso: febrero-2004
Mensajes: 23
Antigüedad: 21 años, 3 meses Puntos: 0 | |
| 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 |