Segue uma possibilidade para a primeira duvida

Qto a segunda não entendi

Reinaldo, primeiramente quero agradecer pela disponibilidade em ajudar.

Gostaria de saber se é possível você enviar o seu modelo para o e-mail [email protected], pois não posso baixar anexos a não ser do e-mail no meu trabalho.

Sobre o meu segundo problema é o seguinte:
Imagine que na célula A1 está o caminho: C:UsersraguimaraesDesktopProjeto Digitalizações WilsonDocumento1.pdf
O texto em azul é o nome do arquivo.

No caso eu preciso que a partir do caminho informado na célula A1, ele me retorne apenas o nome do arquivo em azul no TextBox1.

Arquivo enviado conforme solicitado.
Quanto ao nome do documento experimente:
Crie uma variavel:
Separa = Split(Cells(1, "I"), "", -1, vbTextCompare)
para a txt use : TextBox1 = Separa(UBound(Separa))

Veja o codigo no exemplo enviado:

Sub ComboBox1_Change()
Dim linha As Integer, Separa() As String
linha = Me.ComboBox1.ListIndex 'ActiveCell.Row
Separa = Split(Cells(1, "I"), "", -1, vbTextCompare)

TextBox1 = Separa(UBound(Separa))
Cells(linha + 1, 1).Select
TxtEndereco = Left(Cells(linha + 1, 2).Value, 2)
TxtCidade = Mid(Cells(linha + 1, 2).Value, 3, 2)
TxtEstado = Mid(Cells(linha + 1, 2).Value, 6, 3)
TxtFone = Mid(Cells(linha + 1, 2).Value, 10, 5)
TxtEmail = Right(Cells(linha + 1, 2).Value, 4)


End Sub

Reinaldo usei como base a idéia do seu modelo proposto e consegui resolver o meu primeiro problema,

Já o segundo, que era sobre informar o nome do arquivo através de um caminho. Exemplo: C:UsersraguimaraesDesktopProjeto Digitalizações WilsonDocumento1.pdf, usei o seguinte código:

Arquivo = Split(TextBox1, "")
TextBox2.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)

Retornando o nome do arquivo (Documento1) Na TextBox2.

Agradeço pela disposição em sempre tentar ajudar.