AdvanceDebug

Private Function MyDebugMsg(ByVal aMessage _
As String) As Boolean
' This function is used for expediting

' development

If MsgBox(aMessage, vbOKCancel, _
"OK puts you into the Error Trap") = vbOK Then
MyDebugMsg = False
Else
MyDebugMsg = True
End If
End Function

' Sample sub

Public Sub SetColor()
On Error GoTo SetColorError
' body of the subroutine would go here,

' force an error to demonstrate

Error 5
SetColorErrorExit:
Exit Sub
SetColorError:
' In an error trap place this line in addition to any

' other error handling code

Debug.Assert MyDebugMsg(Err.Description & " in SetColor")
'other error handling code

Resume SetColorErrorExit
End Sub