Путь к файлу - VBA

Формулировка задачи:

в макросе MS Word нужно получить путь и имя файла, выбранного в диалоговом окне "Открыть файл".. имя файла есть, а вот путь к нему никак не удается получить.. пол дня сегодня убил на поиск нужной функции, так и не нашел..

Private Sub CommandButton2_Click()
  With Dialogs(wdDialogFileOpen)
    .Name = "*.xls"
    .Display
    MsgBox .Name
  End With
End Sub

т.е. при выборе файла сейчас выдается сообщение с его именем, типа "Книга1.xls", а нужно чтобы выводилось "c:\Директория\Книга1.xls".. помогите, плиз, решить проблемку..

Решение задачи: «Путь к файлу»

textual
                            Листинг программы 
                        

                                With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "*.xls"
        .AllowMultiSelect = False
        If .Show = -1 Then MsgBox .SelectedItems(1)
    End With
                        