Dim sArray() As String
Dim i As Integer
Dim sString As String
Dim nCount As Integer
Dim nLen As String
 
sString = "String mit z.B. 300 Zeichen"
 
<font color=green>' Anzahl gewünschter Teilstrings</font>
nCount = 3
ReDim sArray(nCount - 1)
 
<font color=green>' Länge berechnen</font>
nLen = Int(Len(sString) / nCount)
 
For i = 1 To nCount
  If i < nCount Then
    sArray(i - 1) = Mid$(sString, (i-1) * nLen + 1, nLen)
  Else
    sArray(i - 1) = Mid$(sString, (i-1) * nLen + 1)
  End If
Next i
 
<font color=green>' Jetzt hast Du Array von 0 - nCount - 1</font>
For i = 0 To nCount - 1
  MsgBox sArray(i)
Next i