June 2018 Update

Task/Exceptions/VBA/exceptions-1.vba

@@ -0,0 +1,7 @@
+Sub foo1()
+    err.raise(vbObjectError + 1050)
+End Sub
+
+Sub foo2()
+    Error vbObjectError + 1051
+End Sub

Task/Exceptions/VBA/exceptions-2.vba

@@ -0,0 +1,46 @@
+Sub bar1()
+'by convention, a simple handler
+    On Error GoTo catch
+    foo1
+    MsgBox " No Error"
+    Exit Sub
+catch:
+    'handle all exceptions
+    MsgBox Err.Number & vbCrLf & Err.Description
+    Exit Sub
+End Sub
+
+Sub bar2()
+'a more complex handler, illustrating some of the flexibility of VBA exception handling
+    On Error GoTo catch
+100     foo1
+200     foo2
+    'finally block may be placed anywhere: this is complexity for it's own sake:
+   GoTo finally
+catch:
+   If Erl = 100 Then
+      ' handle exception at first line: in this case, by ignoring it:
+      Resume Next
+   Else
+      Select Case Err.Number
+         Case vbObjectError + 1050
+             ' handle exceptions of type 1050
+             MsgBox "type 1050"
+         Case vbObjectError + 1051
+             ' handle exceptions of type 1051
+             MsgBox "type 1051"
+         Case Else
+             ' handle any type of exception not handled by above catches or line numbers
+             MsgBox Err.Number & vbCrLf & Err.Description
+      End Select
+      Resume finally
+  End If
+finally:
+   'code here occurs whether or not there was an exception
+   'block may be placed anywhere
+   'by convention, often just a drop through to an Exit Sub, rather tnan a code block
+   GoTo end_try:
+
+end_try:
+    'by convention, often just a drop through from the catch block
+End Sub