Language Basics VisualBasic Script

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