Private Sub Form_Activate()
Dim Text As String
Dim FileName() As String
Dim Liste As String
Dim Pos1 As Long
Dim Pos2 As Long
 
Text = Command()
 
Do While True
  Pos1 = InStr(1, Text, Chr(34))
   If Pos1 = 0 Then Exit Do
    Pos2 = InStr(Pos1 + 1, Text, Chr(34))
   Liste = Liste & Mid(Text, Pos1 + 1, Pos2 - Pos1 - 1) & vbCrLf
  Text = Replace(Text, Mid(Text, Pos1, Pos2 - Pos1 + 1), "")
Loop
 
FileName = Split(Text, " ")
 
For N = 0 To UBound(FileName)
  If Trim(FileName(N)) <> "" Then
    Liste = Liste & Trim(FileName(N)) & vbCrLf
  End If
Next
 
MsgBox Liste
 
End Sub