ciao, fai così..

codice:
dim titoloprog as string
open pathcompletodelfile  for input as #1
list1.clear
while not eof(1)
input #1,titoloprog
list1.additem titoloprog
wend
close #1
Prova..
Ciao
Andrea