>>298

ByVal lpData As Any
これを
ByRef lpData As Any　か、ByRef lpData As byte に変えて、
コールする時に次のように配列の最初の要素を渡してやったらどう？
RegSetValueEx(nHandle, KeyName, 0, REG_BINARY, Data(0), i + 1)