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
    For i = 0 To UBound(dateiarray)
     Debug.Print dateiarray(i)
      ' das klappt so nicht
     sevText2.LoadFile .dateiarray(i)
     'so klappt es, aber nur bei einer Datei
     'sevText2.LoadFile .filename
     Next i
  End If