[Resolvido] renomear arquivo a partir do ponto

Alguem sabe uma função que consigo renomear um arquivo apartir de um . (ponto) ?

esta abaixo peço os ultimo digitos, porem ele pode ter 4 como 3 da extensão.

' função reponsável por retornar a extensão do arquivo
Function retornaExtensaoArquivo(arquivo)
retornaExtensaoArquivo = right(arquivo, 5)
End Function