Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
perdona había un error en la rutina anterior, lo corrijo más abajo
Cadena = "Texto en español donde quiero quitar las eñes"
Pos = instr(Cadena,"ñ")
while pos > 0
Cadena = left$(Cadena,Pos-1) & "N" & mid$(Cadena,Pos+1)
Pos = instr(Cadena,"ñ")
wend