VBA: диалог выбора файла

Ниже представлена функция, открывающая диалог выбора файла (таблицы MS Excel) и возвращающая через имя путь к этому файлу или пустую строку, если файл не выбран:

Public Function GetFile()
Dim FName As String
Dim result As Integer
With Application.FileDialog(1)
    .Title = "Выберите xls / xlsx файл"
    .InitialFileName = "C:\" 'default path
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Таблицы Microsoft Excel", "*.xls; *.xlsx", 1
    End If
 
result = .Show
If result = 0 Then Exit Function
FName = Trim(.SelectedItems.Item(1))
End With
GetFile = FName
End Function