Browse a Folder and Populate Listbox with Folder Items

@ snb it doesnt work either. :(

What is 'it' ?

Code:

---

Private Sub Listbox1_Change()

    If Listbox1.ListIndex > -1 Then Textbox1.Value =CreateObject("Scripting.FileSystemObject").OpenTextFile(Listbox1.Value).ReadAll

End Sub

---