Insira o seguinte código no INÍCIO da procedure em que quiser detectar:
On Error GoTo Erro:
Em seguida no final da procedure, coloque:
MsgBox "O (Nome do programa) causou um erro desconhecido. Informe as seguintes 'instruções de erro' ao desenvolvedor :" & Chr(10) & _
Err.Number & Chr(10) & Err.Description & Chr(10) & Err.Source & Chr(10) & App.Revision, 16, "Erro Desconhecido"