Private Sub Combo1_Click()
  Dim i&, T$, Out$, Lst$(), Dat1$
 
  If Trim$(Combo1.Text) = "" Then Exit Sub
  Out = ""
  Dat1 = Dir1.Path & "\" & Combo1.Text
  If Dir$(Dat1, vbDirectory) <> "" Then
    File1.Path = Dat1
    For i = 0 To File1.ListCount - 1
      Open File1.Path & "\" & File1.List(i) For Input As #1
        T = Input(LOF(1), #1)
      Close #1
      Lst = Split(T, vbCrLf)
      If UBound(Lst) >= 1 Then
        Out = Out & Lst(1)
        If i < File1.ListCount - 1 Then Out = Out & vbCrLf
      End If
      DoEvents
    Next i
  End If
  Text1.Text = Out
End Sub

Gruss,

Zardoz