Arbeiten mit Dateienliste aus FileDialog

hallo

Hier mal mein Makro, wie ich Dateien auswähle:

Sub Verarbeiten()
    Dim i As Long
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .InitialFileName = ThisWorkbook.Path & "\*.*"
        If .Show = 0 Then End
        
        'Die folgenden Zeilen sollen in einer eigenen Sub stehen
        For i = 1 To .SelectedItems.Count
            Debug.Print .SelectedItems(i)
        Next i
    End With
End Sub