Using f As New OpenFileDialog With {.Multiselect = True} If f.ShowDialog = DialogResult.OK Then MsgBox(String.Join(vbNewLine, f.FileNames)) End If End Using