eduhaag,

Bom Dia!

substitua seu código por esse:

Private Sub UserForm_Initialize()
     Dim Caminho As String 'Caminho do arquivo
     Dim fDialog As Office.FileDialog
     Dim nome As Variant
     Dim Posição As Byte
     Dim NomeArquivo As String
     
     'Configura caixa de seleção do arquivo
     Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
     With fDialog
         .AllowMultiSelect = False 'Habilita ou desabilita a seleção de múltiplos arquivos
         .Title = "Selecionar arquivo..."
         '.InitialFileName =  'Caminho inicial para seleção, não utilizado no exemplo
        
         'Configura filtros da caixa de seleção
         .Filters.Clear 'Limpa os filtros
         .Filters.Add "Arquivos Excel - .xls", "*.xls" 'Adiciona filtro para arquivos .xlsb
        
         If .Show = True Then    'Se o parâmetro .Show for igual à True significa
                                 'que algum arquivo foi selecionado
             Caminho = .SelectedItems.Item(1) 'Local + arquivo selecionados são passados para
                                             'a variável chamada de "Caminho"
         End If
        
     End With
     'verifica onde está a última barra invertida do caminho
     Posição = InStrRev(Caminho, "", , vbTextCompare)
     
     'armazena somente o nome do Arquivo
     NomeArquivo = Mid(Caminho, Posição + 1, Len(Caminho) - Posição)
     
     tb_caminho.Text = NomeArquivo 'Atribui o caminho do arquivo textbox

Outra sugestão utilizando a Function que postou :

Function AbrirArquivo()

    Dim Caminho As String 'Caminho do arquivo
    Dim fDialog As Office.FileDialog
    Dim nome As Variant
    
    Dim sNomeArquivo As String
    
    'Configura caixa de seleção do arquivo
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    With fDialog
        .AllowMultiSelect = False 'Habilita ou desabilita a seleção de múltiplos arquivos
        .Title = "Selecionar arquivo..."
        '.InitialFileName =  'Caminho inicial para seleção, não utilizado no exemplo
        
        'Configura filtros da caixa de seleção
        .Filters.Clear 'Limpa os filtros
        .Filters.Add "Arquivos Excel - .xls", "*.xls" 'Adiciona filtro para arquivos .xlsb
        
        If .Show = True Then    'Se o parâmetro .Show for igual à True significa
                                'que algum arquivo foi selecionado
            
            Caminho = .SelectedItems.Item(1) 'Local + arquivo selecionados são passados para
            
            'Só o Nome sem o "Caminho"
            sNomeArquivo = Dir(Caminho)
    
            'Msg só para confirmação
            MsgBox sNomeArquivo
            
            'Coloca o Nome no TextBox
            tb_caminho.Text = sNomeArquivo
             
        End If
        
    End With
    
End Function

[]s

Muito obrigados amigos Wagner Morel e Mauro Coutinho, as duas respostas resolveram meu problema.
A sua Wagner, consegui adaptar tranquilamente. Obrigado.
E a sua Mauro ja estava basicamente pronta. Obrigado

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.