Text Dosya İçeriğini ListBox’a Eklemek

Private Sub Command1_Click()
Dim Eklenecek As String
Open "c:\sil.txt" For Input As #1
List1.Clear
While Not EOF(1)
Input #1, Eklenecek
List1.AddItem Eklenecek
Wend
List1.Refresh
Close #1
End Sub