leer letra por letra

[GeoAvila]

Código:

Private Sub Command1_Click()
Dim Contador As Integer
Texto = "Uno_a_UNo"
For Contador = 1 To Len(Texto)
MsgBox Mid(Texto, Contador, 1)
Next Contador
End Sub

algo asi seria el codigo..

nos vemos..