Public Function OpenFile(Optional DefaultPath As String, Optional TitleDLG As String = "Найти файл") As String '
Dim result As Integer
OpenFile = ""
DefaultPath = IIf(Len(DefaultPath) = 0, "C:\", IIf(Len(Dir(DefaultPath, vbDirectory)) = 0, "C:\", (DefaultPath)))
With Application.FileDialog(1)
    .Title = TitleDLG
    .InitialFileName = IIf(Len(DefaultPath) = 0, "C:\", DefaultPath)
    .AllowMultiSelect = False
    result = .Show
    If result = 0 Then GoTo 1
    OpenFile = Trim(.SelectedItems.Item(1))
End With
1:
    Exit Function