¡¿¡¿ Por Que No Andaa ?!?!

[nadiesabenada]

hola me tienen que ayudar!!! quiero cargar unos txt en la lista de tres combobox, pero el problema es que si uno de los tres archivos esta vacio, no carga ninguno!!!
o si por ejemplo, los archivos tienen 4 lineas, y uno tiene solamente 1 linea, me carga la primera linea de cada uno!!!!!! Si los pongo por separado, o sea si en vez de poner los tres archivos en el mismo codigo como esta aca, hago tres codigos distintos para cada uno, es lo mismo... ¿que pasa? aca va el codigo:


On Error GoTo error
listauno$ = "c:\listauno.txt"
listados$ = "c:\listados.txt"
listatres$ = "c:\listatres.txt"
Dim lstuno As String
Dim lstdos As String
Dim lsttres As String
On Error GoTo error
Open listauno$ For Input As #1
Open listados$ For Input As #2
Open listatres$ For Input As #3
While Not EOF(1)
Input #1, lstuno$
Input #2, lstdos$
Input #3, lsttres$
DoEvents
Combo1.AddItem lstuno$
Combo2.AddItem lstdos$
Combo3.AddItem lsttres$
Wend
Close #1
Close #2
Close #3
Exit Sub
error: msgbox (error)

desde ya cualquier ayuda que me puedan dar les agradezco muchisimo, hasta luego