Загрузка из txt файла в combobox и listbox - VB

Формулировка задачи:

В общем имеется файл с несколькими строчками. Количество строк не известно. Нужно загрузить эти строчки в combobox и listbox. Буду признателен, если поможете. Я так понимаю надо узнать количество строк в файле, Записать в переменную и потом эту переменную использовать в цикле считывания. Во время считывания записывать в боксы. В общем помогите реализовать

Решение задачи: «Загрузка из txt файла в combobox и listbox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command3_Click()
Dim f as Integer, l as Long
f = FreeFile
Open "c:myfile.txt" For Append As f
Do while l<List1.ListCount
    Print #f, List1.List(l)
    l=l+1
Loop
Close #f
End Sub