necesito AYUDA!! -Problema con archivos-

[bony258]

MI PROBLEMA ES Q CUANDO LO EJECUTO NO ME TRAE BIEN LOS DATOS, LOS CORTA X LA MITAD, ALGUIEN SABE COMO PODRIA SOLUCIONARLO???



Private Sub Command1_Click()
Dim nfic, nfic2, nfic3 As Integer
Dim codlibro, cliente, cant, precio As Integer
Dim ventas(1 To 8) As Integer


nfic = FreeFile
Open App.Path & "\ventas.txt " For Input As #nfic

nfic2 = FreeFile
Open App.Path & "\LIBROS.dat" For Random As nfic2 Len = Len(libro)

nfic3 = FreeFile
Open App.Path & "\GENEROS.dat" For Random As nfic3 Len = Len(genero)


Do While Not EOF(nfic)
Input #nfic, codlibro, cliente, cant, precio
Get #nfic2, codlibro, libro
Get #nfic3, libro.genero, genero

ventas(codlibro) = ventas(codlibro) + cant

Text1 = Text1 & vbCrLf
Text1 = Text1 & " El libro " & libro.titulo & " registra una venta de" & " " & ventas(codlibro) & " " & "unidades pertenecientes al genero" & " " & genero.descripcion & vbCrLf


Loop

Close #nfic
Close #nfic2
Close #nfic3


CON EL MODULO:

Type tlibro
nro_libro As Integer
titulo As String * 30
cantPag As Integer
genero As Integer
End Type
Public libro As tlibro


Type tgenero
codigo As Integer
descripcion As String * 15
End Type
Public genero As tgenero

CUANDO LO EJECUTO MUESTRA SOLO ESTO!!!

El libro señor de los Anil
El libro s arriba
El libro nas abiertas ^
El libro as de viaje submarino È