>>350
ちょっとやってみたよ。どうかな？
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()

Dim aaa(100) As Byte
Dim bbb(100) As Byte

aaa(20) = Asc("a")
aaa(21) = Asc("b")

Call CopyMemory(bbb(50), aaa(20), 2)

MsgBox Chr(bbb(50)) & Chr(bbb(51))

End Sub