Dim Dir, Filer
Set Dir = CreateObject("Scripting.FileSystemObject")
Set Filer = Dir.GetFolder("C:\")
For Each filefound In Filer.Files
Text3.Text = Text3.Text & vbCrLf & filefound.Name
Next