if Mid(sText, iRun, 1) < > &quot; &quot; then Mid( sText, iRun, 1, Chr( 1 + Asc( Mid(sText, iRun, 1) ) )
if Mid(sTexto,iEjec,1 ) < > &quot; &quot; then Mid( sTexto ,iEjec, 1, Chr( 1 + Asc( Mid(sTexto,iEjec,1 )) )