name$="Shane Monroe"
For T = 1 To Len(name$)
Print Mid$(name$,t,1)
Next