Function Reemplazar(Cdato as string)
Dim Valido as boolean, Resultado as string, Caractar as string
for x%=1 to len(Cdato)
Caracter=mid(Cdato,x%,1) /extraer el caracter
Valido=Comprobar(Caracter) 'comprobar el caracter
if validothen
Resultado=Resultado & Caracter 'añadir el caracter al resultado
else
Resultado=Resultado & [ & asc(Caractar) & "]" 'añadir el ascii al resultado
endif
next x%
Reemplazar=Resultado 'devolver el resultado
end function

Function Valido(Car as string)
Car=Ucase(Car) 'pasar a manúsculas
if asc(car)>="A"  and asc(Car)<="Z" then 'si es letra
Valido = true
else
Valido=false
endif

if not isnumeric(Car) or not Valido then 'si no es número
Valido=false
endif
return