The following example displays a File Picker dialog box using the FileDialog object and displays each selected file in a message box. Sub Main() 'Declare a variable as a FileDialog object. Dim fd As ...