Skicka array till webservice

Hej,

Jag ska skicka en array till en webservice men jag får inte till det. Får följande felmeddelande: Type conversion failure for element listPPI

Såhär ser koden ut för tillfället.

Dim test As New clsws_ppService

Dim listPPI(1)
For i = 0 To UBound(listPPI)
    Set listPPI(i) = New struct_PowerPointItem
Next

listPPI(0).HeadLine = "Sommar"
listPPI(0).Description = "ssd"

MsgBox (test.wsm_CreatePowerPoint(listPPI(0)))