this does what you want separated by commas
VB Code:
  1. Private Sub Dir1_Click()

  2.     File1.Path = Dir1.List(Dir1.ListIndex)

  3.     Text1.Text = ""

  4.     Dim a As Long

  5.     For a = 0 To File1.ListCount - 1

  6.         Text1.Text = Text1.Text & " " & File1.List(a)

  7.         If a < File1.ListCount - 1 Then

  8.             Text1.Text = Text1.Text & ","

  9.         End If

  10.     Next

  11. End Sub