Dim strFilename As String
strFilename = Dir("*.*")
Do While strFilename <> ""
  Text1.Text = strFilename & vbNewLine
  strFilename = Dir
Loop