Função para retornar apenas o nome do arquivo de um caminho

Código:

Public Function fncNomeArquivo(Caminho As String) As String
    ' #######################################################
    '## Função criada por Marcelo David                      #
    '## Data: 13/06/2019                                     #
    '## Finalidade: retornar o nome do arquivo de um caminho #
    ' #######################################################
    On Error GoTo TrataErro
    
    Dim posicao As Integer

    posicao = InStrRev(Caminho, "\", , vbTextCompare)
    fncNomeArquivo = Mid(Caminho, posicao + 1, Len(Caminho) - posicao)

    Exit Function

TrataErro:
    MsgBox Err.Description, "Número: " & Err.Number
End Function

Sabe aquele momento que você precisa pegar apenas o nome do arquivo de um caminho?
Pois bem, essa função faz exatamente isso.
Por exemplo: para retornar o nome do arquivo do seguinte caminho: C:\Arquivos\documento.docx
basta fazer assim:
fncNomeArquivo ("C:\Arquivos\documento.docx")
Será retornado: documento.docx
Isso vale para qualquer arquivo e o caminho poderá ser uma variável,
caixa de texto, o caminho retornado pelo FileDialog, etc.


Espero que lhes seja útil.

Será de grande ajuda! Obrigado pela contribuição!