No entendí mucho de tu pregunta. Si lo que quieres es recorrer toda la cadena carácter por carácter puedes hacerlo así:
Código vb:
Ver originalDim Cadena As String
Dim Caracter As String * 1
Dim I As Integer
Cadena = "Texto"
For I = 1 To Len(Cadena)
Caracter = Mid(Cadena, I, 1)
MsgBox Caracter
Next I