Recuperar letra de una palabra en un msgbox

[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)