Sub TestError2()
On Error GoTo TestError2_Err
Debug.Print 1 / 0
msgBox "I am in Test Error"
Exit Sub
TestError2_Err:
If Err = 11 Then
msgBox "Variable 2 Cannot Be a Zero", , "Custom Error Handler"
End If
Exit Sub
End Sub