Option Explicit
 
Private Sub Command1_Click()
    Dim s As String
    Dim i As Long
    Dim sFilez() As String
 
    On Error Resume Next
 
    With cdlg
        .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNLongNames _
          Or cdlOFNAllowMultiselect Or cdlOFNExplorer
        .InitDir = App.Path
        .Filter = "(*.*)|*.*"
        .CancelError = True
        .ShowOpen
        s = .FileName
    End With
    If Err.Number > 0 Then
        MsgBox "Abbrechen gedrückt !", vbInformation
        Exit Sub
    End If
 
    sFilez = Split(s, vbNullChar)
 
    If UBound(sFilez) = 0 Then
        MsgBox "1 File ausgwählt und zwar " + sFilez(0) + " !", vbInformation
    Else
        MsgBox CStr(UBound(sFilez)) + " Files ausgewählt und zwar mit vollem" & _
          "Pfad", vbInformation
        s = sFilez(0) + "\"
        For i = 1 To UBound(sFilez)
            MsgBox CStr(i) + ": " + s + sFilez(i), vbInformation
        Next i
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1