The best way I found to do it was to use word to get the file open dialog. Here is a sample function:

Function GetFileName()
Set oWord = CreateObject("Word.Application")

...