Добавление элементов в список ListBox из файла

Существует список ListBox названный ListVinoski, как из файла добавить элементы в этот список. По логике вещей надо сделать так, однако ниже приведённый способ не срабатывает.
Private Sub ListVinoski_Click()
  Dim sloika As String
     sloika = "C:\Temp\sloika.txt"
  ReadFile (sloika)
  If File.exists(sloika) Then
     Dim sr As StreamReader
     Dim text As String
     sr = File.OpenText(sloika)
     text = sr.ReadLine()
    Do
     text = sr.ReadLine()
     Console.WriteLine (text)
     ListVinoski.Items.Add (text)
    Loop Until (text = Nothing)
     sr.Close (sloika)
    End If
End Sub
Где я ошибаюсь?

> SmeL
Испробывал , заполнятся ListBox не хочет
при выполнение

> Василий
Ок не нравится FSO напишем по другому ;)

Private Sub CommandButton1_Click()
    Dim hFile As Long
    Dim strLine As String
    hFile = FreeFile
    Open "D:\list.txt" For Input Access Read Shared As hFile
    Do Until EOF(hFile)
        Line Input #hFile, strLine
        ListBox1.AddItem strLine
    Loop
    Close hFile
End Sub

структура файла лист
list1
list2
list3
list4
...