[Resolvido]retornar a extensão de um arquivo.

Senhores

tenho o caminho completo da localização e o nome de um arquivo de quanquer extensão, em uma caixa de texto.
Preciso pegar a extensão desse arquivo nessa caixa de testo e jogar em uma caixa de texto, qualquer.
exemplo

txtarquivo = "c:\teste\arquivo.jpg"
txtext = ".jpg"

Podem me ajudar.

Bom dia jovem!

segue código abaixo:

Código:


Private Sub Comando0_Click()
pega_extensao ("c:\teste\arquivo.jpg")
End Sub
Function pega_extensao(arquivo)
pega_extensao = Mid(arquivo, InStr(1, arquivo, ".", 1), Len(arquivo))
MsgBox pega_extensao
End Function



fiz o seguinte

criei um caixa de texto - txtext

quando o campo txtarquivo é preenchido usei uma parte do seu codigo

txtext = Mid(txtarquivo, InStr(1, txtarquivo, ".", 1), Len(txtarquivo))

ficou perfeito.

Obrigado.

Olá a todos,
Apenas um pitaco, eu colocaria assim:

Private Sub Comando0_Click()
pega_extensao ("c:\teste\arq.ui.vo.jpg")
End Sub

Function pega_extensao(arquivo)
pega_extensao = Mid(arquivo, InStrRev(arquivo, "."), Len(arquivo))
MsgBox pega_extensao
End Function

Para o caso do nome do ficheiro também tenha ponto(s).
Abraço