UDT en VBA.Collection

El siguiente codigo de VB2005 da error en la línea "recCons = oCol(x)"

Hola, tengo un problema con dlls COM.
Tengo una serie de clases de negocio escritas en VB6 que necesito utilizar
de VB2005. El problema es que en estas clases tienen un metodo que devuelve
una colección con datos de typ UDT. Ejemplo

Public Type typCons
ID As Long
Fecha As Date
Descripcion As String
End Typ

Public Function Consulta(ByVal Fecha As String) As Collection
Dim oCol As New Collection
Dim recCons As typCons

...
'Obtengo resultado de la Base de datos
while ...
oCol.Add recCons
...
Set Consulta = oCol
End Function

El siguiente codigo de VB2005 da error en la línea "recCons = oCol(x)"

Dim recCons as typCons
Dim oCol as VBA.Collection
Dim objCons As objCons
Dim x As long

oCol = objCons.Consulta("01/01/2006")
For x = 1 to oCol.Count
recCons = oCol(x)
msgbox recCons.Descripcion
Next

Hay alguna forma de resolver este problema o tengo que reescribir mis clases
de negocio?

Muchas gracias

For x = 0 to oCol.Count - 1

Fíjate que he incluído "- 1" al final, y el bucle lo empiezo en 0 y no en 1.
El problema es que la colección va de 0 a n-1