Can not access the key or item using index

[WhaleGEN]

cnt = 0
For Each Key in dict.Keys  
     data(cnt) = dict(Key)
     cnt = cnt + 1  
Next

The above works

For i = 0 to dict.Count -1
    data(i) = dict.Items(i)
Next i

This above not work.

Property let procedure not defined and property get procedure did not return an object--run time error 451