' Deklarationsbereich
Dim Buchstabe() As String
 
Private Sub Command1_Click
  Dim StrLength As String, i As Integer
 
  StrLength = Len(MeinString)
  ReDim Buchstabe(1 To StrLength)
 
  For i = 1 To StrLength
    Buchstabe(i) = Mid$(MeinString, i, 1)
  Next i
End Sub

Gruß
Marcus