Dim Size1&, Z1&, i&, C$, Datenstring$, Liste1$()
 
Randomize
 
ReDim Liste1(0)
Size1 = 0 ' aktuelle Größe des Arrays
Z1 = -1 ' Zeiger auf Arrayelement
For i = 0 To 10000# + Rnd * 10000#
  C = Chr$(65 + Int(Rnd * 26))
  Z1 = Z1 + 1
  If Z1 > Size1 Then
    Size1 = Size1 + 1000 ' um 1000 oder mehr vergrößern
    ReDim Preserve Liste1(Size1)
  End If
  Liste1(Z1) = C
Next i
ReDim Preserve Liste1(Z1) ' Array auf tatsächlichen Bedarf reduzieren
Datenstring = Join(Liste1, "") ' String zusammensetzen
MsgBox Len(Datenstring)

Gruss,

Zardoz