Hola
Espero que el siguiente código sea lo que buscas. Suponiendo que escribes la cadena en el text1 y guardas los caracteres en un array llamado cad:
Código:
Dim i As Integer
Dim cad(30) As String
For i = 1 To Len(Text1.Text)
cad(i - 1) = Mid(Text1.Text, i, 1)
Next i
--Saludos--