YoungBuck's code is fine as well. Only drawback I see
is that it list all the files in shortname only and that
might be a bit of a setback if you are looking for a file
called adirtbagdogwebsite and you get it listed as adirtb~1.
(could confuse the user)

Code:
Private Sub Form_Load()
    CommonDialog1.Filter = "All Files (*.*)|*.*|"
    CommonDialog1.Flags = cdlOFNNoLongNames Or cdlOFNAllowMultiselect
    CommonDialog1.ShowOpen
    MsgBox CommonDialog1.FileName
 End Sub