Hola, mira este control de errores, si se produce un error te devuelve el número y su descripción...
Código:
On Error GoTo VerError
Exit Sub
VerError:
Open App.Path & "\info.log" For Append As #1
Print #1, "INFO: " & Now
Print #1, Err.Number & " " & Err.Description
Close
un saludo