With CommonDialog1
  .CancelError = True
  .DialogTitle = "Öffnen von Dateien zum Auslesen"
  .Filter = "ho5-dateien (*.txt)|*.txt"
  .Flags = cdlOFNAllowMultiselect + cdlOFNCreatePrompt + cdlOFNExplorer
  .ShowOpen
  If .FileName <> "" Then
    dateiarray = Split(.FileName, Chr(0))  ' die zeilen auslesen
    sevText2.Text = ""
    For i = 0 To UBound(dateiarray)
      Debug.Print dateiarray(i)
      sevText2.Text = sevText2.Text & ReadFile(.dateiarray(i))
    Next i
  End If
End With

Public Function ReadFile(ByVal Filename As String) As String
  Dim F As Integer
  Dim sBuffer As String
 
  F = FreeFile
  Open Filename For Binary As #F
  sBuffer = Space$(Lof(F))
  Get #F, , sBuffer
  Close #F
 
  ReadFile = sBuffer
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de