Como meter caracteres de un String en un Arreglo

[pkj]

No sé a que te refieres con eso de "arreglo".

Si lo que quieres es crear un Array con una frase puedes hacer esto:

Dim F As Long
Dim Nombre As String
Dim Arreglo() As String

Nombre="Pepito"
ReDim Arreglo(Len(Nombre)) As String
For F = 1 To Len(Nombre)
Arreglo(F)=Mid$(Nombre, F, 1)
Next F

Y listo, cada caracter será un elemento del Array

Si lo que quieres es extraer el caracter numero X de la frase, pues no necesitas el Array:

Caracter=Mid$(Nombre,X,1)

A ver si eso te aclara algo.