Dim o As ObjectSet 
o = CreateObject("mscomdlg.commondialog")
o.showopen