private sub copy_memory(byval str as string)
dim laenge as long
laenge = len(str) * 2 '*2, weil VB 2 Bytes verwendet, um ein Zeichen zu 
' speichern
redim array_(laenge) 'das ist das Array, in das die bytes des Strings kopiert 
' werden sollen.
CopyMemory array_(0), str, laenge
end sub