quiero voltear una cadena, que se lea al revez; tengo este codigo, pero no me sale, se aceptan sugerencias y metodos para hacerlo.
sub voltear_click()
dim frase as string
dim loncadena as integer, i as integer
frase=txtvoltear.text ' texto a voltear
loncadena=len(frase)
for i =1 to int(loncadena/2)
mid(frase,loncadena + 1 -i,1)=mid(frase,i,1)
mid(frase,i,1)=mid(frase,loncadena + 1 -i,1)
next
txtvoltear.text=frase
end sub
gracias
