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