Private Sub Form_Load()
   Dim nFilVar As Variant
   With cmdlg
      .MaxFileSize = 32767
      .Filter = "*.*"
      .Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
      .ShowOpen
      nFilVar = Split(.FileName, Chr(0))
      For i = 0 To UBound(nFilVar, 1)
         MsgBox nFilVar(i)
      Next
   End With
End Sub