s$ = "Rosetta Code" PRINT s$ PRINT MID$(s$, 2) 'strip first PRINT LEFT$(s$, LEN(s$) - 1) 'strip last PRINT MID$(s$, 2, LEN(s$) - 2) 'strip first and last