How do I use a FileDialog in Outlook

[John Ford]

There exists an Office.FileDialog type of object. However, Outlook
doesn't support it. I've found that I can use FileDialog by borrowing
Excel's support:

Set oOffice = CreateObject("Excel.Application")
Set fd = oOffice.FileDialog(msoFileDialogFolderPicker)
iShowRetturn = fd.Show
sPath = fd.InitialFileName
Set fd = Nothing
Set oOffice = Nothing

Is there another way? What if Outlook is the only Office application
on a user's PC? FileDialog must exist somewhere else in Windows...