displaying a filename in TextBox

Hi

I want to use this code to display only the filename + extension in the TextBox1. It currently shows the full path

With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Please select file"
    .Show
    If .SelectedItems.Count = 0 Then
        Else
        TextBox1.Value = .SelectedItems(1)
    End If
End With