Dim sFiles As Variant
Dim I As Integer
Dim F As Integer
Dim sInhalt As String
 
Text2.Text = ""
sFiles = Split(Text1.Text, vbCrLf)
For I = 0 To UBound(sFiles)
  F = FreeFile
  Open App.Path & "\" & sFiles(I) For Binary As #F
  sInhalt = Space(Lof(F))
  Get #F, , sInhalt
  Close #F
 
  Text2.Text = Text2.Text & sInhalt & vbCrLf
Next I