esiste la proprietà MultiSelect.

per salvare i nomi dei file selezionati, esiste la SELECTED.
devi giocarci un po.
potresti controllare se il file alla posizione 1 è stato selezionato, allora salvi il nomefile all'interno di una variabile.


if file1.selected(1) = True Then
AA= file1.FileName
end if

msgbox AA


fai delle prove.