Visual Basic - Coger letra por letra

Hola, me gustaría que me dijesen como puedo coger letra por letra, es pa hacer un encriptador, quizas con for? for i = 1 to 10 pero no se como hacer para qe vaya cogiendo una por una y las ponga en otro text.

Gracias y un saludo,

pixero

Una manera es con, Mid(cadena,donde_empieza_a_cortar,el_largo_a_cortar)
'
For i = 1 To Len(Text1)
List1.AddItem Mid(Text1, i, 1)
Next i
'
Saludos

Muchísimas gracias.