[Resolvido]Mensagem personalizada para erros de macro

Boa noite galera!

Como faço para personalizar uma mensagem de erro de macro?

Ex:

If MacroError.Number = 2105 Then
MsgBox "Não existem mais linhas nesta direção.", vbInformation, " Sispac"
Else
DoCmd.GoToRecord , , acPrevious
End If

Só que preciso de um código que funcione na primeira linha, o restante é da forma que escrevi.

Abraço!

Bom dia,
Vire-se para o VBA

Só utilizo VBA Alexandre.

Tenho os botões de comando: "Próximo" e "Anterior" e, acontece que, quando chega no primeiro ou no último registro, o access exibe a mensagem de erro:

"Erro em tempo de execução '2105': Você não pode ir para o registro especificado."

Sendo assim, o que preciso é de um código onde eu possa personalizar essa mensagem, substituindo-a por "Não existem mais linhas nesta direção".

Outra coisa que preciso é de um código onde, quando chegar no último registro e eu apertar o botão "Próximo", o access vá para o primeiro registro.

Abraço!

Bom dia,
Como falou em macro...
Coloque

Sub ...
On Error Goto ProcessaErro

código normal


exit sub
ProcessaErro:
select case err.number
case 1
msgbox mensagem1
case 2
msgbox mensagem2
case else
msgbox mensagemelse
end select
end sub

Obrigado Alexandre!