Dim s As String
s = ""
For i = 1 To 1024
s = s & "1"
Next
' ................... 1 kb
Dim t As String
For i = 1 To 1024
t = t & s
Next
' ................... 1 MB
Dim u As String
For i = 1 To 5
u = u & t
Next
' ..................... 5 MB
Dim c As BClipboard
c.setText(u)
' ....................... Scheint zu klappen!
Dim x As String
x = c.getText
Dim k As Int
k = x.Length
Msgbox ("Größe: " & k, "Hm...")