Private Sub Command1_Click()
    Dim a As String
    a = Mid(Text1.Text, 4, 1)
    MsgBox a
End Sub

Dim ArrayC(1 To 15) As String 'el array
Dim Cadena As String 'la cadena a separar letra a letra
Dim CadAux As String 'auxiliar


Cadena = "Hola" 'cualquier cadena
 For i = 1 To Len(Cadena)
   CadAux = Left(Cadena, i)
   ArrayC(i) = Right(CadAux, 1)
 Next
 
'mostramos letra por letra
MsgBox ArrayC(1)
MsgBox ArrayC(2)
MsgBox ArrayC(3)
MsgBox ArrayC(4)