Visual Basic - Extraer un Caracer de un Cuadro de texto en VB

Disculpenme amigos queria saber si algunos de ustedes me puede decir o mandar un ejemplo de como extraer un caracer de un cadro de texto Grascias!!!

Hola Elias, este ejemplo es sencillo fue elaborado en VBA en Microsoft Excel, se inserto un formulario que contiene un cuadro de texto y un boton de comando, funciona de igual forma en VB6, solo que los controles se denominan de forma diferente, en vez de ser textbox como en Microsoft Excel, en VB6 es Text, se utiliza la función Mid(cadena de texto donde se va a extraer cada caracter,donde comienza la extracción, la cantidad de caracteres a extraer), espero te sea de ayuda.

Private Sub CommandButton1_Click()
For i = 1 To Len(Me.TextBox1)
MsgBox Mid(Me.TextBox1, i, 1)
Next i
End Sub