Kao što rekoh na onoj drugoj temi, mislim da bi trebalo da se malo pozabaviš osnovama. Ovako možemo do sutra da rešavamo probelm po problem, i kačimo kod po kod dok ne napišemo ceo program, a da ti ništa ne naučiš, što nije svrha foruma.
Elem, evo ti za čitanje fajla i smeštanje u listbox. Odaberi dugme po želji
Kod:
Private Sub Command1_Click()
Dim fn As Integer
Dim sText As String
fn = FreeFile
Open "C:\proba.txt" For Input As #fn
List1.Clear
Do Until EOF(fn)
DoEvents
Line Input #fn, sText
List1.AddItem sText
Loop
Close #fn
End Sub