Parameter type mismatch?

Jeg har et wsf-vb script der driller lidt.
Jeg får fejlen: "Pass an array of doubles (8-byte floating point number"...

Dim myData(4)
For ItemNr = 1 To TS.Count
  For i = 1 To TS.Time.NrTimeSteps
    myData(i - 1) = (i - 1) * ItemNr
  Next
  myObj.Item(ItemNr).SetData ((myData))
Next

Fejlen opstår ved myObj.Item(....) hvor den altså vil have at arrayet skal være af typen double!
Dette har jeg forsøgt at imødekomme ved:
    myData(i - 1) = cdbl((i - 1) * ItemNr)
Men uden held.
Jeg har også prøvet at erklære mit array ved:
Dim myData(4) As Double
Men den vil den ikke acceptere!