Una variante podria ser esta:
Private Type Lista
Direccion As String
Descr As String
Checksum As String
LocalFile As String
Destino As String
Comprimido As String
End Type
dim Coleccion as new Collection
dim Datos as Lista
Dim Down() As Lista
'Y lo lleno asi
Sub Obtener_Lista()
Dim i As Long
FILES = LeerIni("FILES", "Count", TEMP & "\" & nomArchivo)
For i = 1 To FILES
FILE = "file" & i
Datos.Direccion = LeerIni(FILE, "url", TEMP & "\" & nomArchivo)
Datos.Descr = LeerIni(FILE, "descr", TEMP & "\" & nomArchivo)
Datos.Checksum = LeerIni(FILE, "newchecksum", TEMP & "\" & nomArchivo)
Datos.LocalFile = LeerIni(FILE, "localversion", TEMP & "\" & nomArchivo)
Datos.Comprimido = LeerIni(FILE, "compressed", TEMP & "\" & nomArchivo)
List1.ListItems.Add = Datos.Descr
'Download (Direccion)
Coleccion.add Datos
Next