VBA_Excel_教程：Option，错误处理

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

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