Function GetJustName() As String
    ' Select file.
    With Application.FileDialog(msoFileDialogFilePicker)
    ' Clear pre-defined filters to select any file.
    .Filters.Clear
    ' If user selected nothing, exit sub.
    If .Show = False Then Exit Function
    ' Get file name with extension.
    GetJustName = "Полный путь: " & .SelectedItems( 1 ) & "; имя файла: " & Dir(.SelectedItems( 1 ), vbDirectory)
    End With
End Function

Sub Go_Test()
    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Clear
        If .Show = False Then Exit Sub
        Test .SelectedItems( 1 )
    End With
End Sub
Function Test(oFl)
    Dim li As Long, iTmr As Double, sFileName As String
    'Стандартный метод
    iTmr = Timer
    For li =  1  To  1000 
        sFileName = Dir(oFl, vbDirectory)
    Next li
    MsgBox "Встроенный метод: " & Timer - iTmr
    'Через File System Object
    iTmr = Timer
    Dim fso As New FileSystemObject
    For li =  1  To  1000 
        sFileName = fso.GetFile(oFl).Name
    Next li
    MsgBox "Через File System Object: " & Timer - iTmr
End Function