si è molto semplice:
(presumendo che il file txt si trovi nella stessa directory del programma)
codice:
Private sub Form_Load()
Dim temp as string
    Open app.path & "/pippo.txt" for input as #1
        Do Until EOF(1)
           Line input #1,temp
           list1.additem temp
        loop
    close #1
end sub
se c'è qualche problema fammelo sapere