Necesito obtener el nombre de un archivo seleccionándolo mediante un inputbox

Me encuentro utilizando un inputbox para seleccionar archivos e ingresarlos en una Hoja de calculo "hoja1" pero me ingresa la dirección completa del archivo y necesito solo el nombre.

El código que estoy utilizando es el siguiente:

Private Sub agregar_Click()
Dim contfile As Long, archiv As String
Dim Mensaje, titulo, ValorPred, desc_arch
' Abre el cuadro de dialogo
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
' Agregar los paths de cada archivo seleccionado al listbox "listfiles"
For contfile = 1 To .SelectedItems.Count
Bas_pri.selectfiles.AddItem Application.FileDialog(msoFileDialogOpen).SelectedItems(contfile)
archiv = Application.FileDialog(msoFileDialogOpen).SelectedItems(contfile)
Mensaje = "Ingrese la Descripción del archivo:" & archiv
titulo = "INGRESO DE ARCHIVOS AL SISTEMA"
ValorPred = "-ingresar-"
desc_arch = InputBox(Mensaje, titulo, ValorPred)
Bas_pri.selectfiles.List(contfile - 1, 1) = desc_arch
Next contfile
End With
selectfiles.Enabled = True
End Sub

Muchas gracias