load text file in a listbox

Create the Followinf function:

Code:
Public Function LoadList(locat As String, lister As ListBox)
On Error Resume Next
Dim nFileNumm As Integer, sNextLinee As String, lLineCountt As Long
nFileNumm = FreeFile
Open locat For Input As nFileNumm
lLineCountt = 1
Do While Not EOF(nFileNumm)
Line Input #nFileNumm, sNextLinee
lLineCountt = lLineCountt + 1
lister.AddItem sNextLinee
Loop
Close nFileNumm
End Function


Call the above function like:
Code:
Private Sub Command1_Click()
LoadList "E:\log.ini", List1
End Sub

hmm