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