Excel Copiar texto de textbox com critério

[josequali]

Bom dia! @Midori001 @Edson Luiz Branco @LaerteB

Gostaria de tirar uma dúvida para a seguinte situação. Atualmente preciso copiar parte do texto da textbox1 para textbox2 de acordo com o seguinte critério: copiar palavra da direita para esquerda até encontrar o primeiro ponto (Copiar o ponto junto com as letras antes dele)

 

Exemplo1: C:\Documentos\nomedoarquivo-001.00.pdf

Exemplo2:C:\Documentos\nomedoarquivo-001.00.xlsm

 

No primeiro exemplo o texto carregado na textbox1 eu quero que copie só o .pdf, já para o segundo exemplo só o .xlsm para a textbox2. Ou seja ele transfere para textbox2 as informações até o primeiro ponto da direita para a esquerda.

 

Atualmente uso o seguinte código, mas ele não atende o critério

 

Textbox2.Text = Right (textbox1.Text, 4)

 

Mas esse código o que ele faz é copiar as últimos 4 caracteres da textbox1 para a textbox2.

 

Desde já agradeço a disponibilidade  e ajuda

 

 

 

 

[Márcio Rodrigues]

Olá josequali

 

Tente isto:

Textbox2.Text = Right(TextBox1.Text, Len(TextBox1.Text) - InStrRev(TextBox1.Text, ".") + 1)

 

Att,

[josequali]

@Márcio Rodrigues perfeito! Muito obrigado ! Se importaria de explicar pra código? Assim aprenderia melhor caso suja outra necessidade! Obrigado