lcStr="123456654321" lcStr1="" For lnI=1 To 4 lcStr1=lcStr1+Iif(lnI%2=1,Left(lcstr,6),Right(lcstr,6)) EndFor =Messagebox(lcStr1)