Visual Basic para Aplicaciones - usar colecciones de otros procedimientos

hola. Mi problema urgente: he realizado un procedimiento en el que leo de un archivo de texto unos registros y los añado a una colección, que luego elimino y los datos los guardo previamente en otra colección. Mi problema es que debo hacer un procedimiento nuevo en el que lea eses datos de la colección creada y los inserte en un documento nuevo de texto. Tengo la colección declarada general, y el procedimiento que hago es la siguiente, y el resultado es que no me toma los valores de esa colección:

Sub Reconstruir_Fichero()

'declaracion y asignación de variables
Dim Palabra As String
Dim Num_Elementos As Variant

Num_Elementos = Archivo.Count
Set Archivo = New Collection
Palabra = ""

Canal = FreeFile ' FreeFile indica el siguiente número de archivo disponible.
'abrimos el fichero para solo lectura
Open "texto.txt" For Input As #Canal

'abrimos un fichero nuevo donde insertamos el contenido de "palabra"
Canal = FreeFile
Open "TEXTO_RECONSTRUIDO.TXT" For Append As #Canal

For i = 1 To Num_Elementos
Palabra = Archivo.Item(i).Count
Print #Canal, Palabra
Palabra = "" 'ponemos palabra en blanco para el siguiente campo
Next i

Close #Canal
End Sub

POR FAVOR AYUDADME!!!!!!!!!!!!!!!!!!!1