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

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), byval str, laenge 'hier das ByVal vor str
end sub

 
Dim s As String
    s = "Hallo Welt"
    Dim arr() As Byte
    ReDim arr(0 To Len(s)) As Byte
    CopyMemory arr(0), ByVal s, UBound(arr)
 
    Dim i As Integer
    For i = 0 To UBound(arr)
        Label2.Caption = Label2.Caption & Chr(arr(i))
    Next i