Non capisco cosa intendi bene come errori non gestiti... ma ti faccio un'esempio:
Questo codice di Esempio è in una Form:
Private Sub NomeControllo_Click()
On Error GoTo HandleErrors
' resto del codice...
......
ExitHere:
Exit Sub
HandleErrors:
Select Case Err.Number
Case is=1500
Esegui Quello che vuoi...
Case Else
Call HandleError(Me.Name & ".NomeControllo_Click()", Err.Number, Err.Description)
End Select
Resume ExitHere
End Sub
Ora in un Modulo vai a gestire quello che serve in modo centralizzato, quì fa uscire un Messaggio:
Prublic Sub HandleError(strName As String, _
lngNumber As Long, strDescription As String)
MsgBox "Error: " & strDescription & _
" (" & lngNumber & ")", vbExclamation, strName
End Sub