Str = "TestingQ" n=Len(Str) for i=1 to n Rstr = Mid(Str,i,1) & Rstr Next Msgbox Rstr To receive daily posted JOBS & Interview Questions Just enter your email address below and click 'Submit' Enter your email address: Make sure to activate your subscription by clicking on the activation link sent to your email