Advertisement
Guest User

Untitled

a guest
Oct 7th, 2016
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.11 KB | None | 0 0
  1. Function l(s,x)
  2. l=s:s=IIf(Left(s,1)=Right(s,1),Right(s,Len(s)-1),s)
  3. z:x=x-1:If x>0Then l=l &s:GoTo z:
  4. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement