Ti basta impostare un flag:
codice:
CD.Filter = "Tutti (*.*)|*.*"
CD.Flags = &H200 + &H4
CD.ShowOpen
La proprietà FileName restituisce una stringa con path di selezione e i nomi dei file separati da uno spazio:
x:\Path File1 File2 File3