VBA in Excel- ein Wort in ein Array schreiben

Naja... da bis jetzt keine Antwort kam... 
Hier hab ich aus einem anderen Forum Hilfe bekommen...
also fals jemand Interesse hat, bzw auch dieses Problem... hier die Lösung:

hier ist eine Lösung:

Sub Feld()
Dim buchstaben() As String, eingabe As String, i As Integer

'Eingabe
eingabe = InputBox("Bitte Wort eingeben:", "Eingabe")

'Sicherheitsabfrage, ob eingabe gemacht wurde
If Len(eingabe) = 0 Then Exit Sub

'Die Größe des Arrays an die Eingabe anpassen
ReDim buchstaben(1 To Len(eingabe)) As String

'Buchstaben einlesen
For i = 1 To Len(eingabe)
buchstaben(i) = Mid(eingabe, i, 1)
Next i

'Buchstaben ausgeben
For i = 1 To UBound(buchstaben)
MsgBox ("Buchstabe Nr. " & i & " = " & buchstaben(i))
Next i
End Sub


Das ist einfach gut beschrieben, und sogar für VBA Anfänger wie mich verständlich (danke noch mal an dich @Sozu)