Visual Basic - separar caracteres de un 'string'

Hola a tod@s,
¿Alguien sabe alguna forma de poder desglosar un 'string' en sus caracteres o leerlo caracter a caracter?.Un saludo y muchas gracias.

dim cadena as string
dim caracter as string
cadena="hola esteban"

for i=1 to len(cadena)
caracter=mid(cadena,i,1)
next i

Suerte compañero