Recuperar letra de una palabra en un msgbox

[hunter18]

Necesito recuperar una letra segun su posicion digamos que tengo en un Text1="AFND" son 4 letras y necesito hacer lo siguiente:

Desde un boton recuperar letra por letra en orden es decir la 1era vez que precione el boton sera msgbox=A, la 2da vez msgbox=F y asi hasta el final de la cadena.

Código:

Private Sub Command1_Click()
   If Recupero_letra Then
      MsgBox Letra
   End If
End Sub

[hunter18]

Al final era bastante sencillo, ya esta.

Código:

Dim x As Integer

If xPosicion = Len(xCadena) Then 
   xPosicion = Val(1)
Else
   xPosicion = Val(xPosicion) + 1
End If

x = Val(xPosicion)

F_letra = Mid(xCadena, x, 1)

[pkj]

Me temo que la palabra sencillo no lo describe apropiadamente... pero todos hemos pasado por eso... al menos yo.

Suerte y al toro, que e una moná.