Public Sub GetData(oDialog As CommonDialog, _
  oList As ListBox, oList2 As ListBox, _
  Optional ByVal sFilter As String = "Alle Dateien (*.*)|*.*", _
  Optional ByVal bClearList As Boolean = True)
 
  Dim sFiles() As String
  Dim i As Long
 
  On Error Resume Next
  With oDialog
    .CancelError = True
    .FileName = ""   ' Dateinamen löschen
    .Filter = sFilter
 
    ' Flags für Explorer Style und Mehrfachauswahl übergeben
    .Flags = &H200 + &H80000
 
    ' alle Dateinamen zusammen dürfen maximal 24KB
    ' (24576 Bytes) Lang sein.
    .MaxFileSize = 24576
 
    ' Dialog anzeigen
    .ShowOpen
    If Err.Number = 0 Then
      sFiles = Split(.FileName, vbNullChar)
      If UBound(sFiles) > 1 Then
        ' Mehrere Dateien ausgewählt!
        For i = 1 To UBound(sFiles())
          oList.AddItem sFiles(i)
         Next i
      Else
        ' nur eine Datei ausgewählt
        oList.AddItem sFiles(0)
       End If
    End If
  End With
  On Error GoTo 0
End Sub