private sub werte() as Boolean

erg1 = werte()
do while erg1 = True
...
...
for i = 1 to 64
buffer2(i) = buffer1(i) 'oder irgendwie so
next i
 
erg1 = werte()
loop

---------------------------------------------------------------------------------------------------------------
Wissen ist Macht, aber nichts wissen macht nichts!