VBA_Excel_教程：Option，错误处理

Option Explicit '强制对模块内所有变量进行声明
Option Compare Text '字符串不区分大小写
Option Base  '指定数组的第一个下标为1(只能指定0或1)

Sub s1()
On Error GoTo ErrorHandler
    Dim a() As String
    a() =
ErrorHandler:
    Debug.Print "Error"
End Sub