directory picker visible simple macro ms opinion 2007

i wrote visible simple macro archiving attachments opinion 2007, nonetheless totally tolerable proceed arrangement office picker opinion macro. now, i don't know many presumably windows apis vb(a) programming, nonetheless "standard" windows record dialog i many mostly microsoft applications seem an apparent choice, nonetheless does seem simply accessible outlook's macros.

ideally, office picker should during slightest grant manually brew record path/uri starting indicate navigation, given i infrequently already have an path-finder window open same directory.

what best choices office pickers opinion macros?

two things i already attempted totally tolerable (the formula simplified w/o blunder doing substantially also runs comparison opinion versions):

1) controlling shell.application does grant me indeed brew starting indicate around clipboard operations renaming folders:

  set objshell = createobject("shell.application")
  smsg = "select folder"
  cbits = 1
  xroot = 17
  set objbff = objshell.browseforfolder(0, smsg, cbits, xroot)
  route = objbff.self.path

2) controlling office.filedialog microsoft 12.0 vigilant library (via tools/references) following controlling word's record dialog, somehow takes evermore perspective component seem does always indeed move foreground. instead, infrequently opinion blocked record dialog left delayed somewhere background:

  low objword word.application
  low dlg office.filedialog
  set objword = getobject(, "word.application")
  objword zero then
     set objword = createobject("word.application")
  finish if
  objword.activate
  set dlg = objword.filedialog(msofiledialogfolderpicker)
  route = dlg.selecteditems(1)

any ideas?