VB6＋Win2000環境にて、細かい宣言などは省略しますが

dim Data() as Byte

fot i = 0 to 9
Data(i) = 1
next i

RegOpenKeyEx(Rootkey, Subkey, 0, 2, nHandle)
RegSetValueEx(nHandle, KeyName, 0, REG_BINARY, Data, i + 1)

だとRegSetValueEXの行で「型が一致しません」、と出ます。
RegSetValueEXのバイナリ値のSetを使用しているソースを探したのですが
同じような記述しか見つかりませんでした。
バイナリはどう設定すればいいのでしょうか？