On Error GoTo falta
Open "C:\ejemplo.txt" For Append As #1
Print #1, Combo1.list
Close #1

dim IntCanal as integer , strBuffer as string
intcanal=freefile
open DirArchivo for input as #intcanal
do while not eof(intcanal)
  lineinput #intcanal strBuffer
  if len(strbuffer) > 0 then
    combo1.additem strbuffer
 end if
 doevents
loop
close #intcanal