[Resolvido]Mensagem de saida no VBA

Pessoal
Como posso colocar uma mensagem no final da exportação das planilhas no código abaixo, como por exemplo "Exportação Realizada com sucesso"

Function exportar()



On Error GoTo exportar_Err

'Declarei as variáveis strConsulta e strNomePlanilha

Dim strConsulta, strNomePLanilha



'Na variável strConsulta eu informei o nome exato da minha consulta

strConsulta = "SELECAO_TB_CHAMADAS"

strConsulta = "NOVACONSULTA"



'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.

strNomePLanilha = "C:\Users\Andre\Desktop\TESTE_IMPORTACAO\BASE.XLS"

strNomePLanilha = "C:\Users\Andre\Desktop\TESTE_IMPORTACAO\BASE.XLS"



'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha



exportar_Exit:

Exit Function





exportar_Err:

MsgBox Error$

Resume exportar_Exit



End Function

Muito Obrigado!!

Vcs sao D+++++

Esqueceu o Resolvido. Bom trabalho.